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Abstract 


Today’s VSTOL aircraft designer is in need of an accurate theoretical model which 
can swiftly evaluate various ejector configurations. Previous attempts at developing 
such a model have been either over-simplified to the point of questionable accuracy, 
or so computationally expensive that optimization studies were not practical. 

A viscous-inviscid interaction technique is advocated as both an efficient and 
accurate means of predicting the performance of two-dimensional thrust augment- 
ing ejectors. The flow field is subdivided into a viscous region that contains the 
turbulent jet, and an inviscid region that contains the ambient fluid drawn into the 
device. The inviscid region is computed with a higher-order panel method, while an 
integral method is used for the description of the viscous part. The strong viscous- 
inviscid interaction present within the ejector is simulated in an iterative process 
where the two regions influence each other en route to a converged solution. This 
formulation retains much of the essential physics of the problem, but at the same 
time requires only a small amount of computing effort. 

The model is applied to a variety of parametric and optimization studies involv- 
ing ejectors having either one or two primary jets. The effects of nozzle placement, 
inlet and diffuser shape, free stream speed, and ejector length are investigated. 
The inlet shape for single-jet ejectors is optimized for various free stream speeds 
and Reynolds numbers. Optimal nozzle location and tilt are identified for various 
dual-jet ejector configurations. 

In all cases, it is found that the dual-jet ejector out performs its single-jet coun- 
terpart. This fact is attributed to enhanced mixing due to an increase in the effective 
ejector length. 
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Chapter 1 


Introduction 


1.1 Fundamental Physics Underlying Thrust Aug- 
mentation 

A thrust augmenting ejector is a device capable of increasing the thrust produced by 
a propulsive jet nozzle through purely fluid mechanical means. The ejector consists 
of a high momentum primary jet that is exhausted into the confines of an aerody- 
namic shroud (see Figure 1.1). As the jet evolves, it entrains some of the ambient 
fluid contained within the ejector, thereby causing it to be swept downstream and 
through the ejector exit. The fluid lost to the jet entrainment is replaced by a 
secondary stream induced to flow in through the ejector inlet. As the secondary 
flow is accelerated around the leading edges of the ejector shroud, it lowers the local 
surface pressure in these regions. The resulting leading edge suctions create aero- 
dynamic forces that have a large component in the direction of the primary nozzle 
thrust. These forces, together with the increased momentum flux of the primary 
nozzle due to the lowered pressure within the ejector, augment the force produced 
by the primary jet. 

It is clear that the ability of the jet to entrain ambient fluid provides the mech- 
anism of thrust augmentation. Most investigators refer to the effect of entrainment 
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Figure 1.1: Thrust augmenting ejector concept 


as “mixing” since the primary and entrained secondary flow become indistinguish- 
able at the ejector exit station. The mixing that takes place within the ejector is 
due to a complex, turbulent process. While little is known about the details of the 
mixing process, the consequences of mixing are well understood. Ejectors perform 
optimally when the mixing process uniformly distributes the excess energy of the 
primary jet such that the exiting flow is at a thermodynamic state midway between 
the primary and secondary streams. Although to approach this limit of complete 
mixing is the goal of all ejector designs, the current lack of theoretical understand- 
ing of the mixing process has led to many configurations that are far from optimal. 
Theoretical models that realistically predict the mixing process are required to aid 
in the design of optimal ejectors. 
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1.2 Application to VSTOL Aircraft Technology 


The magnitude of the ejector effect is surprisingly large. Several investigators[l] 
have observed more than double the thrust produced by the primary jet alone. 
Because of its demonstrated potential as a thrust boosting device, the ejector has 
become an attractive component for advanced aerodynamics designs. 

One important application of the thrust augmenting ejectors is found in vertical 
and short takeoff or landing (VSTOL) aircraft where there is a need for a large 
source of powered lift. In the ejector-powered vertical takeoff aircraft concept, the 
high pressure gas developed by the turbine engines is directed through a pair of 
ejectors mounted along the fuselage at the wing roots (see Figure 1.2). The ejectors 
boost the primary thrust to a level greater than the weight of the aircraft, thereby 
allowing it to rise vertically. Once sufficient altitude has been gained, the aircraft 
makes a conversion to forward flight by smoothly transferring the jet exhaust from 
the ejectors to the main horizontally thrusting nozzles. When the conversion is 
complete, the ejectors are covered over with movable doors to eliminate unnecessary 
drag. A vertical landing is achieved by repeating the takeoff procedure in reverse 
order. 
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1.3 Previous Work 

Ejectors have been studied in connection with thrust augmentation since the mid 
1920’s. Today there exists a tremendous literature pertaining to ejector theory 
and performance. Comprehensive surveys of this work can be found in the review 
articles by Porter and Squyers[l] and Quinn[2]. The article by Porter and Squyers 
lists more than 1600 references. As a small subset of these, a selected number of 
important theoretical works are highlighted in this section. 

The first theoretical study of ejectors was a control volume analysis given by von 
Karman[3]. In that analysis and those that followed[4,5,6] the ejector was treated as 
a black box where the conservation laws were required to hold only in a global sense 
between the entrance and exit stations. These control volume analyses have been 
quite useful in illustrating the importance of complete mixing as well as establishing 
theoretical limits to the maximum possible thrust augmentation. 

In the control volume approach, the details of the ejector mixing process are 
collapsed into a single mixing efficiency parameter. This step allows simple analytic 
expressions for the thrust augmentation ratio to be determined. Unfortunately, the 
resulting expressions contain the mixing efficiency parameter as an unknown quan- 
tity. Most investigators have accepted this fact and have simply plotted performance 
curves with the mixing efficiency appearing as an undetermined parameter. In spite 
of the inability to connect the mixing efficiency to a particular ejector configura- 
tion, the control volume analyses are still useful in quantifying the importance of 
the degree of mixing. In addition, theoretical limits on the maximum possible thrust 
augmentation are established through the analyses by letting the mixing efficiency 
approach unity. 

Without the ability to predict the ejector mixing process, the control volume 
analysis alone is not a powerful enough method to be used in conjunction with 
ejector design. The analysis can be supplemented with empirical information con- 
cerning the mixing efficiency, but this would require perhaps dubious extrapolations 
of the experimental data to investigate designs outside of the existing data base. 
A better alternative is to supplement the control volume analysis with a realistic 
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theoretical model of the turbulent mixing process. 

Much of the recent effort in ejector development has focused on developing 
realistic theoretical models of the mixing process. The basic approach in many con- 
temporary works is to incorporate a turbulence model in the approximate solution 
to the Navier-Stokes equations which govern the ejector flow. If the turbulence 
model is reliable, the numerical simulations are able to predict the performance of 
an arbitrary ejector configuration. It is therefore possible to use these techniques 
to aid in ejector design. 

A few investigators have attempted to model the ejector mixing process through 
a direct finite difference solution to the Navier-Stokes equations [7,8]. While the 
results have been encouraging, there is a practical problem in that these solutions 
require enormous amounts of computing time, even on the fastest class of computers. 
A single thin-layer Navier-Stokes calculation performed by Lasinski et al. [8], for 
example, took on the order of ten hours of processor time on a CDC 7600 machine. 
This sort of demand for computational power makes a full Navier Stokes simulation 
impractical for ejector design studies where hundreds of different configurations 
must be evaluated. 

An alternative solution technique, known as the viscous-inviscid matching pro- 
cedure, was first applied to the ejector mixing problem by Bevilaqua [9]. By 
making approximations locally and incorporating some of the known properties 
of jets, Bevilaqua was able to dramatically reduce the computational effort needed 
to model the ejector mixing process. Later improvements and extensions of this 
idea by Bevilaqua[10,ll], Tavella[12,13], and Lund[14] have increased the accuracy 
and usefulness of the viscous-inviscid technique. 

In the viscous-inviscid method, the flow field is divided into two separate regions. 
The turbulent flow consisting of the primary jet and mixed flow make up the viscous 
region, while the secondary, mainly irrotational flow makes up the inviscid region. 
Independent approximations are made in each region to simplify the problem while 
still resolving the important flow physics. The two regions are solved simultaneously 
in an iterative process that simulates the interaction between the jet and the ambient 
fluid. When the process converges, the flow variables are continuous at the juncture 
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between the viscous and inviscid zones. 

The efficient nature of the viscous-inviscid technique is attributed to its ability 
to utilize different approximations within the viscous and inviscid regions. The 
viscous-inviscid models developed to date have treated the inviscid region within a 
potential flow framework, and the viscous flow under a thin shear layer assumption. 
These are good local approximations that lead to a pair of relatively simple problems 
for which efficient solution techniques exist. The need to iterate between the two 
solutions does not become a great concern since each of the individual solution 
procedures are orders of magnitude more efficient than a Navier-Stokes solution. 

Bevilaqua’s original viscous-inviscid model[9] did not resolve the entire inviscid 
portion of the flow. In this first model, the inviscid secondary flow was assumed 
to be uniform at the ejector inlet station. Bevilaqua furthermore assumed that 
the jet could be modeled with a self-similar solution. These assumptions led to 
an extremely streamlined solution procedure that only required marching an initial 
value problem with a single unknown. 

While the validity of the uniform secondary flow assumption as well as the self- 
similar jet solution could be disputed, Bevilaqua’s original viscous-inviscid model 
illustrated a concept that could easily be improved to simulate the ejector flow 
field more accurately. In his two later works[10,ll], Bevilaqua improved his original 
model by fully resolving the secondary flow with a combined panel/vortex lattice 
technique. The jet model was also improved by replacing the self-similar solution 
with a finite difference solution to the thin shear layer equations. These improved 
models were used successfully to predict the behavior of the ejector performance as 
a limited number of geometrical parameters were varied. 

While Bevilaqua’s improved viscous-inviscid technique represented the ejector 
flow physics quite realistically, the use of a finite difference solution in the viscous 
region reduced the overall efficiency of the method. In an effort to regain some of 
the lost efficiency while still maintaining an accurate solution, Tavella[12] developed 
an integral method for the viscous portion of the flow field. By making some 
reasonable assumptions regarding the shape of the velocity profile, Tavella was able 
to formulate a method that could generate essentially the same information as the 
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finite difference calculation at a small fraction of the computational time. In a later 
work[13], Tavella combined his integral method with a conformal mapping solution 
for the inviscid flow. The resulting algorithm was nearly as efficient as Bevilaqua’s 
original work, but produced a more realistic simulation of the ejector flow field. 

One criticism of Tavella’s viscous-inviscid model is that the conformal mapping 
technique used for the inviscid flow imposed a practical limitation on the shape of 
the ejector shroud. The method was restricted to shrouds that could be described 
by small perturbations to flat plates. An additional shortcoming of Tavella’s model 
(and Bevilaqua’s later models) was that the thickness of the jet was ignored in the 
inviscid solution. In both Tavella’s and Bevilaqua’s models, the jet was treated as a 
line of sinks along the ejector centerline, whose strengths were determined from the 
entrainment predicted by the viscous jet calculation. Accordingly, the flow variables 
were matched at the ejector channel centerline and not the viscous-inviscid interface. 


1.4 Present Work 

The objective of the present work is to improve upon the existing viscous-inviscid 
matching techniques in order to create an accurate and robust model that is efficient 
enough to be used as an ejector design tool. The improvements entail both a 
synthesis and extension of the existing methods. These may be summarized as 
follows: 

1. Use a higher-order panel method for the inviscid flow so that arbitrary shroud 
shapes can be studied. 

2. Combine the higher-order panel method with the integral method of solution 
for the viscous flow. 

3. Take the jet thickness into account in the inviscid solution and thereby match 
the flow variables at the viscous-inviscid boundary as opposed to the ejector 
channel centerline. 

4. Extend the integral method for the case of an ejector with two primary jets. 
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5. Develop a second complete viscous-inviscid model for a dual-jet ejector. 

A secondary objective of this work is to use the improved viscous-inviscid models 
to learn more about the performance characteristics of ejectors. In particular the 
aim is to: 

1. Quantify the impact on performance when several ejector geometrical param- 
eters are systematically varied. 

2. Quantitatively compare the performance of a dual-jet ejector with a single-jet 
ejector for a large range of configurations and operating conditions. 

3. Use the models in some practical design problems to optimize the geometry 
for several different operating conditions. 

1.4.1 Theoretical Framework 

In the present work, several simplifying assumptions are made at the outset. These 
assumptions are designed to limit the scope of the problem while not being so 
restrictive that the analysis is of limited value. The assumptions may be listed as 
follows: 

1. The mean flow is assumed to be steady. 

2. The flow is assumed to be two-dimensional. 

3. The flow is assumed to be incompressible. 

The first assumption limits the analysis to steady flow ejectors. Most ejector designs 
are of this type, even though pulsed flow ejectors [15,16,17] have shown to produce 
more efficient mixing. 

In the second assumption, the ejector flow field is idealized as being two-dimen- 
sional. This assumption is a reasonable approximation since many ejector designs 
have moderately large aspect ratios. Excluding the end regions, the bulk of the flow 
in real ejectors should behave as if it were two-dimensional. The three-dimensional 
effects that occur in the comer regions almost always lower the ejector performance. 
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Hence, the two-dimensional calculations can be considered to be an upper bound 
for the performance values that will be found in practice. 

The third assumption limits the analysis to incompressible flow. This assump- 
tion is perhaps the most restrictive, since most of the modern ejectors are designed 
to operate with primary jet exit Mach numbers high enough to induce compressibil- 
ity effects. The incompressible flow assumption can be viewed as a simplification 
necessary to limit the scope of the analysis in the first step towards producing a 
general, efficient ejector model. Once a methodology is established and tested for 
incompressible flow, it should be relatively simple to extend the model to include 
compressibility effects. In any event, the results of the present analysis are expected 
to produce a reasonable estimate of ejector performance for moderate primary jet 
Mach numbers. A more precise analysis of the applicability of the present model to 
compressible flows is given in Appendix A. 

1.5 Overview 

The thesis is divided into eight chapters. Chapter 2 introduces a control volume 
analysis that illustrates some of the basic properties of ejectors. Chapter 3 discusses 
the viscous-inviscid approach as it applies to the ejector problem. In Chapter 4 the 
higher-order panel method used for the inviscid solution is presented. Chapter 5 
contains a derivation of the integral methods for both single and dual-jet ejectors. 
The matching procedure used to drive the iteration between the viscous and inviscid 
solutions is presented in Chapter 6. Chapter 7 contains the results of both the 
parametric and optimization studies. Finally, a summary and some of the major 
conclusions are listed in Chapter 8. 



Chapter 2 

Classical Analysis 


Theoretical analyses of ejectors can be grouped into two categories: (1) approximate 
solutions to the equations of motion and (2) control volume analysis. In the first 
of these two categories, the flow variables are determined at each point within the 
ejector by employing a numerical technique to solve the appropriate equations of 
motion. This type of analysis resolves the details of the mixing process and can 
therefore be used to learn more about the physics of thrust augmentation. Although 
the numerical simulation approach yields a wealth of information about the ejector 
flow field, it is difficult to implement. The control volume approach, on the other 
hand, is easy to implement and gives analytical results that provide some useful 
information about the global properties of ejectors. Before the advent of computers, 
control volume approaches were used almost exclusively to analyze ejectors. Today, 
the results of these classical analyses are still useful in validating modern numerical 
simulations. A control volume analysis is presented here to provide some insight 
to the properties of ejectors and to be used later to support the results of the 
viscous-inviscid numerical simulation. 


2.1 Control Volume Analysis 

In the control volume approach the ejector is treated at a black box where conser- 
vation of mass, momentum, and energy are required to hold only between the inlet 
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and exit stations. Global quantities such as the thrust augmentation ratio are de- 
termined without regard to the details of the mixing taking place within the ejector. 
The analysis is incomplete in this regard, and the degree of mixing is input as a 
known parameter. In spite of the need to specify a measure of mixing efficiency, the 
control volume analysis can show how the inlet velocity non- uniformity, free stream 
speed, and the addition of a diffuser affect the thrust augmentation ratio. 

Control volume approaches have been widely used in the past. The original pa- 
per by von Karman[3] for incompressible flow ejectors without diffusers has been fol- 
lowed by several extensions to compressible flow, diffusers, and forward speed[4,5,6]. 
In this chapter the existing results are unified into a single analysis valid for incom- 
pressible flow. 

Control volume analyses require the mixing process to take place either at con- 
stant pressure or for constant area. The analysis which is given here is for constant 
area mixing. The flow is also assumed to be incompressible and one-dimensional. 

The equations of motion for incompressible flow are 


du 

dx 


dv 

+ q- = 0 

dy 


( 2 . 1 ) 


da du 1 dp 1 dr 

U di + V d^ + ~pdi-~pd V ( - 2) 

where r is the turbulent shear stress. The continuity equation is used to rewrite 
the momentum equation as 


d ( 2 1 \ duv 1 dr 

dx V + p P j + dy p dy 


(2.3) 


Equations (2.1) and (2.3) are now integrated across the ejector channel of constant 
half- width H. The configurations are assumed to be symmetric so that it is sufficient 
to consider only the upper half-plane. 


J” udy + v(H ) - v(0) = 0 (2.4) 

Jo (“* + p P ) dy + ~ «(0)v(0) = ^ (r(if) - r(0)) 


(2.5) 
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Figure 2.1: Ejector control volume schematic 

At the channel centerline, both the vertical component of velocity v and the shear 
stress r vanish by symmetry. At the channel wall, the v component of velocity again 
vanishes and the shear stress may be neglected (the skin friction may be incorpo- 
rated later through an appropriate loss factor). With these ideas the conservation 
integrals become 

/ udy = const (2.6) 

Jo 


n 2 1 \ , 

u - 1 — p I ay = const 
P / 


Consider the schematic of the ejector shown in Figure 2.1. The conservation inte- 
grals are applied between stations 0 and 2 to give 

ft [H fH 

/ itjdy + / u 0 dy = / u 2 dy (2.8) 

Jo Jt Jo 

ft fH fH \ fH fH ^ 

/ u\dy+ / u 2 0 dy+ / -p 0 dy = / u\dy + / -p 2 dy (2.9) 

Jo Jt Jo p Jo Jo p 

Define the average properties 




( 2 . 10 ) 


h- — I 
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and the velocity skewness parameter 


x _ g !o_ u*dy 
\ff I " tidy ] 2 


( 2 . 11 ) 


( 2 . 12 ) 


The velocity skewness parameter can be found in many of the previous control 
volume approaches[3,6,5]. It provides a measure of the flow non-uniformity. A 
uniform flow has a skewness value of 1, while increasingly non-uniform flows have 
higher values of the skewness parameter. In physical terms, the skewness parameter 
for incompressible flow is proportional to the ratio of the momentum flux to the 
square of the mass flux. Thus a flow with a skewness factor greater than unity 
contains more momentum than does a uniform flow with the same mass flux. 

Using the above definitions, Eqs. (2.8) and (2.9) may be written in terms of the 
averaged quantities 

+ (l - Uo = U 2 (2.13) 

AiUj — + ^1 — — ^ A 0 «o + — ~Po = A 2 U2 + — P 2 (2-14) 

As an approximation, the primary nozzle is modeled as a point source of momentum. 
That is, the dimension of the nozzle is allowed to become arbitrarily small while 
the momentum flux is held fixed. The exit velocity is required to be unbounded in 
this instance in such a way that the nozzle is a singular point of finite momentum 
flux but with no associated mass flux. 


The point source approximation is introduced by letting jj 
such that \\u\jj — >• T^j pH. Then the above equations become 

— ► 0 while U\ — ► oo 

So = u 2 

(2.15) 

~Tt + Ao«o + -Po = A 2 «2 + -P 2 
pH p p 

Bernoulli’s equation is averaged across the channel to give 

(2.16) 

p = pr- l/2p(\u 2 - u 2 ^) 

(2.17) 
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Assume that only a negligible amount of mixing takes place in the diffuser. Under 
this assumption, the flow between stations 2 and 3 is isentropic. The Bernoulli 
equation can therefore be applied between these two stations to give 

P2 - P3 = -l/ 2/>(A 2 U2 - A 3 i 2^) (2.18) 


The exit pressure must be equal to the atmospheric value. Thus p$ = p atm . Conser- 
vation of mass requires u 3 = (H/W)u 2 . The skewness factors A 2 and A 3 are equal 
since the process is isentropic. Making use of these results, the above equation 


becomes 


Pi - Palm = -l/2p\ 2 U 2 2 1 - (~) 


(2.19) 


Bernoulli’s equation may also be applied to the inviscid portion of the inlet flow to 


Po - Patm = -l/2p(A 0 Uo - U £,) 

Equations (2.15), (2.16), (2.19), and (2.20) are now combined to yield 

(—Y = 2 + 7 2 

V«oJ 7 2 X 2 i + (£) 2 _^ 

where a measure of the free stream speed, 7, is defined as 

2 g 4g 

7 To 

The thrust augmentation ratio is defined as 

, _ C « 3(^3 - u^)dy 
So «i(«i - Woo My 

As before, let —>■ 0. Then the above equation may be written as 

(A3W3 - WooU 3 ) ^ 
v ~ ft 


( 2 . 20 ) 


( 2 . 21 ) 


( 2 . 22 ) 


(2.23) 


(2.24) 


Again assume A 3 = A 2 . Then using the mass conservation relation, u 3 = (ff/W)u 2 , 
as well as the definition of the free speed parameter given in Eq. (2.22), the above 
relation becomes 


4> — T 


Vltoo/ H \UooJ 


(2.25) 
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Equation ( 2 . 21 ) is used to give the final result 

2 + 7 2 H 


<t> = 


i + N** l 1 +(#)’-& 


2 + q 2 


(2.26) 


The velocity skewness parameters Ao and A 2 can not be determined by the control 
volume analysis. The skewness parameter A 0 represents the non-uniformity of the 
secondary flow. In many cases the secondary flow is nearly uniform and A 0 1 . The 
skewness parameter A 2 represents the degree of mixing of the primary and secondary 
streams within the constant area portion of the ejector channel. A value of A 2 = 1 
represents complete mixing where the flow exiting from the ejector is uniform and 
is at a thermodynamic state midway between the primary and secondary streams. 
Values of A 2 are typically larger than 1.2. It is observed experimentally that A 2 
varies inversely with the ejector length. This is due to the fact that a longer ejector 
gives the flow more time to mix. The use of multiple primary jets or hypermixing 
nozzles should therefore also reduce A 2 . 

Without prior knowledge of the velocity skewness factors, the control volume 
analysis can not be used to predict the performance of a particular configuration. 
The analysis is still useful, however, since it can be used to show how the perfor- 
mance will vary with these parameters. In addition, the effects of the free stream 
speed as well as the effects of a diffuser may be investigated. It is most instructive 
to isolate three special cases. These are: 

1. Effects of the velocity skewness parameters; given 7 = 0, ^ = 1 : 


<j> = r- 

2-fe 

2 . Effects of a diffuser; given 7 = 0, A 0 = 1 : 



(2.27) 


(2.28) 


3. Effects of a free stream; given M = 1, A 0 = 1 


a 2 + 7 2 

^ - 7 


2 + 7 2 


2 A \ a 2 (2 - £) 


(2.29) 
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2.2 Results 

The effects of the velocity skewness parameters are shown in Figure 2.2, where 
Eq. (2.27) is plotted. As anticipated, the performance decreets es with increasing 
A 2 . The performance is seen to increase with increasing A 0 . Thus the ejector 
performs better if the secondary flow is other than uniform. Showing that this is 
the case was the intent of von Karman’s original paper[3]. Note that for nearly 
complete mixing (A 2 = 1), the performance is significantly improved by secondary 
flow non-uniformity. As the mixing efficiency drops (A 2 > 1), the secondary flow 
non-uniformity has a smaller impact on the performance. In summary, it is best 
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to have a high degree of non-uniformity at the ejector inlet and nearly uniform 
conditions at the ejector exit. 

The effects of a diffuser predicted by Eq. (2.28) are shown in Figure 2.3. It is 
evident that a diffuser is most beneficial if the flow entering the diffuser is close to 
being completely mixed (A 2 near 1). The advantage of having the flow more nearly 
mixed is increasingly pronounced as the diffuser area ratio becomes large. This is 
an important result since it shows that ejectors that employ multiple primary jets 
or hypermixing nozzles in an effort to enhance the mixing process will benefit most 
from the addition of a diffuser. 

Note that for each exit velocity skewness parameter, there is an optimal diffuser 
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Figure 2.4: Effects of the free stream speed. ^ = 1, A 0 = 1 


area ratio. At this point the pressure drag associated with the diffuser starts to 
outweigh the increase in performance due to the lowered inlet pressure. The optimal 
diffuser area ratio is found from Eq. (2.28) to be 



(2.30) 


In summary, the performance of an ejector with a diffuser is again best when the 
exiting flow is nearly mixed. 

The effects of the free stream speed predicted by Eq. (2.29) are shown in Figure 
2.4. The performance decreases monotonically with increasing free stream speed as 
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a result of increasing ram drag. As in the other cases, the performance is always 
best when A 2 is close to 1. 

2.3 Conclusions 

The control volume analysis has produced several interesting results. The analysis 
showed that the performance is always best as A 2 approaches unity and as A 0 departs 
from unity. It was shown that an optimal diffuser area ratio exists for each value 
of A 2 . The performance was also shown to decrease with the free stream speed 
parameter 7. 

While these results are both interesting and instructive, they are limited by 
the need to prescribe the degree of mixing through the parameter A 2 . Because 
of this limitation, it is not possible to use the control volume analysis to predict 
the performance of a particular configuration. Since the focus of this work is to 
develop a model capable of such predictions, the control volume analysis must be 
supplemented with a realistic model of the ejector mixing process. The next several 
chapters describe a numerical simulation technique that is developed to provide 
the information necessary to determine the degree of mixing achieved by any given 
ejector configuration. 




Chapter 3 

Viscous-Inviscid Approach 


In the viscous-inviscid approach, the field is divided into two separate regions or 
“zones” that contain flows of differing character. Regions of the flow that are not 
affected by viscous or turbulent stresses comprise the inviscid zone, while regions 
that contain significant fluid shear, such as boundary layers, jets, and wakes make 
up the viscous zone. Approximations are made independently in each zone to 
simplify the problem while still resolving the important flow characteristics. The 
independent approximations lead to two different sets of simplified equations, each of 
which is valid only in its respective region. The two zones are solved simultaneously 
in an iterative matching process which assures that the solution is continuous at 
the zonal interface. The converged solution is identical to a solution produced by a 
single set of equations that are valid for the whole domain, but is produced with a 
fraction of the computational effort. 


3.1 Previous Work 

The viscous-inviscid technique has been successfully used in the past to solve a vari- 
ety of complex flows. Boundary layers which develop in turbomachinery [18,19], and 
wing-body junctures [20,21,22] have been treated with the viscous-inviscid method, 
as have flows involving shock-boundary layer interactions[23,24,25]. A large body 
of literature exists for viscous-inviscid methods applied to separated regions in both 
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steady [26,27,28,29,30,31,32] and unsteady[33,34,35] flows. Confined jets and thrust 
augmentor configurations have also been modeled with these methods [9,10,12,13]. 

Perhaps the most familiar application of the viscous-inviscid method is the usual 
procedure for calculating boundary layers in aerodynamic flows. In an airfoil prob- 
lem, the viscous zone is made up of a thin layer near the surface, while the inviscid 
zone covers the rest of the field. Typically, a potential flow method is used for the 
inviscid zone, while von Karman’s integral method is used in the viscous zone. The 
inviscid solution provides the surface pressure distribution needed as a boundary 
condition to solve the boundary layer equations. The effect of the viscous region on 
the inviscid flow is then taken into account by increasing the thickness of the airfoil 
to simulate the displacement effect of the boundary layer. The thickness correction 
allows an improved inviscid solution to be generated. The new pressure distribution 
can then be used to compute yet another viscous flow, and so on. In principle, the 
cycle can be repeated until some desired degree of convergence is obtained. In prac- 
tice, the interaction between the boundary layer on an airfoil and the surrounding 
inviscid stream is weak enough that only one iteration is needed to accurately match 
the two solutions. Other viscous-inviscid problems, such as a boundary layer with 
a separation bubble, involve a higher degree of interaction, and several cycles are 
necessary in order to match the solutions together. 

The most attractive feature of the viscous-inviscid procedure is that it gives 
an accurate solution at a very modest computational cost. This advantage is at- 
tributed to the ability to solve a different set of equations in each of the two zones. 
Approximations are made locally, so that negligible terms are pruned where they 
are not needed. For example, in the viscous zone of the airfoil problem, stream- 
wise diffusion is neglected and the velocity normal to the surface is assumed to 
be of higher order. These assumptions reduce the Navier-Stokes equations to the 
boundary layer equations. Being parabolic, the boundary layer equations are much 
easier to solve than the elliptic Navier-Stokes equations. The flow outside of the 
airfoil boundary layer is assumed to be inviscid and, if there are no strong shocks, 
irrotational. For purely subsonic flow, these assumptions allow the Navier-Stokes 
equations to be reduced to Laplaces equation, which again is much easier to solve 
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than the Navier-Stokes equations. Thus, the viscous-inviscid formulation reduces 
the problem of solving the Navier-Stokes over the entire domain to that of solving 
two much simpler problems. The price for making this simplification is that the two 
solutions must be iteratively matched together. This is not a great concern, how- 
ever, since convergence is often obtained in a few cycles, and the entire matching 
process is still significantly faster than solving the Navier-Stokes equations. 

A further advantage of the zonal approach is that it is many times easier to 
implement. In some cases, one portion of the flow field may be simple enough to 
be described by an analytic solution. The other region may require a numerical 
solution, but the two may still be matched together to give the desired result. 
In other cases, only one portion of the flow field may need a computational grid. 
This can eliminate problems associated with generating a grid to fit a complicated 
geometry. 


3.2 Ejector Problem 

The viscous-inviscid approach is a natural choice for an ejector flow field since it 
contains well-defined regions of viscous and inviscid flow. The entrained secondary 
flow forms the inviscid zone, while the turbulent jet and boundary layers on the 
shroud walls form the viscous zone. Figure 3.1 shows how the ejector flow field is 
subdivided. The inviscid zone contains the ambient fluid that is drawn into the 
device. Inviscid flow exists inside a portion of the inlet between the jet and the 
channel wall. The viscous region originates at the jet nozzle and grows at a linear 
rate to simulate the spreading of the jet. The viscous zone completely fills the 
channel downstream of the point at which the jet first strikes the wall. The wake 
formed by the mixed flow which leaves the thrust augmentor exit is also part of the 
viscous zone, but it is ignored since calculations have shown [36] that it exerts a 
negligible effect on the mixing taking place within the channel. 

The flow within the inviscid zone is also assumed to be irrotational and thus the 
solution can be generated under a potential flow framework. The flow is further 
assumed to be incompressible. A higher-order panel method is used as an efficient 
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means to produce accurate solutions for arbitrary shroud shapes. The effect of the 
jet entrainment on the inviscid field is simulated by applying suction to the panels 
which cover the jet boundary. The panel method is desirable since it does not 
require the use of a computational grid nor any iteration. The solution is formed by 
constructing and inverting a moderately sized matrix. The panel method has the 
added advantage that the panel suction boundary conditions only appear on the 
right hand side of the matrix equation. Thus, during the viscous-inviscid matching 
process, the matrix only needs to be calculated and inverted once. With each change 
in the jet entrainment distribution, the new inviscid solution is found through a 
simple matrix-vector multiply. 

In the viscous region composed of the turbulent jet, streamwise diffusion is 
neglected, and thus the thin shear layer equations are used. These equations are 
solved in an integral formulation using the method of weighted residuals. In the 
integral formulation, the solution is efficiently obtained by assuming the form of 
the jet velocity profile. The velocity profile is made flexible by incorporating the 
secondary velocity, centerline velocity, and the jet growth rate as undetermined 
functions of the streamwise coordinate. The weighted residual procedure is applied 
to minimize the error introduced by the velocity profile assumption. This operation 
produces a set of first order differential equations for the functions that specify the 
velocity profile. The differential equations are integrated by marching downstream 
from the jet nozzle. 

The viscous-inviscid procedure requires an iterative process to match the two 
zones together. To help understand the iteration process, the thrust augmentor is 
divided into two regions as shown in figure 3.2. In region 1, the jet merges with the 
co-flowing inviscid flow. This area is referred to as the interaction region since the 
viscous and inviscid flows are influencing each other here. Within this region the 
two solutions are matched together by iterating between the jet entrainment and 
the inviscid pressure distribution. In region 2, the turbulent zone completely fills 
the channel. In this region, the viscous flow is no longer influenced by the inviscid 
flow and no matching is needed. 

The inviscid secondary flow present in the interaction region is produced by 
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Figure 3.2: Viscous-inviscid interaction region. The viscous and inviscid flows are 
matched in region 1. In region 2 only the viscous equations are solved. 

the jet entrainment. The secondary flow, in turn, influences the growth of the 
jet by imposing a pressure gradient and by reducing the rate of shear where the 
jet meets the ambient fluid. This coupling between the jet and secondary flow is 
simulated during the matching process. The inviscid solution provides the pressure 
gradient needed as a boundary condition to compute the viscous flow. The viscous 
solution is then used to produce a new distribution of jet entrainment. The panel 
suction velocities are updated and an improved inviscid solution is calculated. This 
procedure is continued until changes to the panel suction velocities are negligible. 



Chapter 4 

Inviscid Solution 


4.1 Equations of Motion 

The inviscid flow is assumed to be irrotational. The kinematics of the flow are then 
such that the velocity field may be described as the gradient of a scalar potential 

U = V$ (4.1) 

If the above expression is substituted into the incompressible continuity relation 

V-U = 0 (4.2) 

it is found that the velocity potential satisfies Laplace’s equation 

V 2 $ = 0 (4.3) 

An integral of the momentum equation for constant density gives the Bernoulli 
equation, which relates the pressure to the velocity field 

p+ 1/2 pU 2 = const (4-4) 

Since Laplace’s equation (and boundary conditions) are linear, solutions may be 
superimposed. Malting use of this fact, the velocity potential is split into two parts; 
one corresponding to the free stream and another corresponding to the disturbance 
created by the body. Accordingly, The velocity potential is written as 

$ = <f>oo + <t> (4.5) 
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Under this formulation the velocity may be expressed as 


U = Voo + V (4.6) 

Since the potential due to the free stream is known, the problem involves finding the 
disturbance potential due to the presence of the body. The disturbance potential is 
not considered to be small as in thin airfoil theory. In the present work the potential 
is split into two parts for convenience, not for the purpose of linearization. 


4.2 Solution Alternatives 

While several methods are available for solving Laplace’s equation, three of these 
should be given special consideration for the ejector problem. In particular, con- 
formal mapping, finite differences, and panel methods are all means of producing 
accurate solutions in reasonable amounts of computational time. The individual 
merits and shortcomings of each are discussed below. 

4.2.1 Conformal Mapping 

The technique of conformal mapping[37] is probably the most efficient means of 
solving Laplace’s equation. A conformal transformation is used to map the physi- 
cal geometry into a simplified shape for which the solution of Laplace’s equation is 
known. The solution to the physical problem is then found by applying the reverse 
transformation to the solution in the auxiliary plane. If the physical geometry is rel- 
atively simple, the transformation, and therefore the solution to Laplace’s equation, 
can be determined analytically. For more complex geometries the transformation 
can not be determined analytically. In this case the conformal technique fails even 
if the transformation is determined numerically, since there is no direct way to 
determine the reverse transformation. 

Tavella [13] used conformal mapping in his ejector model where the shroud was 
idealized as an infinitely thin flat plate. The geometry was then such that the 
classical Borda’s mouthpiece solution [38] could be used. Tavella also was able to 



4,2^SOL UTION ALTERNATIVES 


29 


obtain solutions for shrouds that could be described in terms of small perturbations 
to the flat plates. 

For the purposes of this work it is necessary to consider a more general class 
of shroud shapes. Since the conformal mapping technique is not applicable to an 
arbitrary geometry, it can not be used as the solution procedure in the present work. 


4.2.2 Finite Difference Calculations 

Finite difference methods[39] can solve a general class of inviscid flow problems. 
As long as a computational grid can be generated, the finite difference procedure 
will work on practically any geometry. Aside from the ability to handle general 
geometries, the finite difference method is unattractive in that a computational 
grid must be generated and that the solution requires a time-consuming iterative 
process. These features make finite difference methods computationally expensive, 
and therefore less attractive than the third alternative, panel methods. 


4.2.3 Panel Methods 

Panel methods[40] compete directly with finite difference methods in their ability to 
treat complex geometries. They are computationally cheaper than finite difference 
methods, however, since they do not require a computational grid or an iterative 
solution. The solution procedure involves solving a linear system of algebraic equa- 
tions in a direct mode. 

Of these three solution procedures, the panel method is the one preferred for 
the ejector study, since it is the most efficient method for the degree of generality 
required. Other methods such as the vortex lattice [41, chap. 7] or vortex sheet[42, 
chapt. 5] would work equally as well, but offer no further advantage over the 
panel method. The panel method is chosen since its use is well documented in the 
literature. 
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4.3 Derivation of the Source-Panel Method 

Panel methods belong to a general class of surface singularity methods in which 
a solid body is replaced by distributions of various forms of singular elementary 
solutions to Laplace’s equation (i.e. sources, doublets, vorticies, etc.) In the source- 
panel method used here, the body surface is broken up into a number of small 
elements or “panels” over which sources are distributed. The source intensities are 
determined by enforcing boundary conditions at the center of each element. For 
solid surfaces, the boundary condition is that the sum of the velocities induced by 
all of the panels exactly cancel the component of the free stream normal to the 
surface element. For flow-through boundaries, the sum of all the induced velocities 
and the free stream are required to equal a specified normal velocity. 


4.3.1 Green’s Third Identity 


The starting point in the derivation of the panel method is the two-dimensional 
version of Green’s third identity[43, page 142] 


<f>(xo,Vo) 



(4.7) 


Green’s identity relates the value of the potential at any fixed field point (x 0l y 0 ) 
to an integral over the body contour. The distance from the fixed point (x 0 , yo) 
to the point of integration on the body surface is r, while n is the local outward 
pointing normal. A. l n ( r ) is the Green’s function for a two-dimensional source. Its 
normal derivative, -LJMn(r) represents a two-dimensional doublet. The derivative 
of potential normal to the surface has the interpretation of the source strength, while 
the value of the potential on the surface is associated with the doublet strength. 
These strengths axe usually denoted by a(s) and respectively. With these 
conventions, Eq. (4.7) becomes 


1 / * d 

4>(xo,yo) = 7 ^ J c <r(s)ln(r)-/i(s)— ln(r) 


ds 


(4.8) 


Solutions to the boundary integral problem are not unique. That is several different 
distributions of a and fi can be found to satisfy the given boundary conditions. In 
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many cases a well conditioned problem can be formulated with the sources alone. 
The most notable of these is the flow over non-lifting aerodynamic bodies. It is 
easy to demonstrate that sources alone are also sufficient to produce aerodynamic 
forces, provided that the body is semi-infinite. In this work the ejector shroud is 
treated as a semi-infinite body and thus the solution can be obtained without the 
use of doublets. 

In anticipation of discretizing the body surface into a collection of small elements, 
the boundary integral in Green’s third identity is broken up into the sum of integrals 
taken over adjoining sections of the surface. Thus, using sources alone, Eq. (4.8) 
may be written equivalently as 


^ 1 rs,+As,/ 2 

4>{x o, yo) = X, tt / 1x1 r ( s; x °’ y ^ ds 

j— j J jj— Asj/2 


(4.9) 


or more compactly 


N j rAs } /2 

<f>(x 0, yo) = Y>7T , a ( S ) ln r ( S; x °’ y °) d 

j_ 1 J-Asj/2 


(4.10) 


where 

3 = s — Sj (4-11) 

The derivation becomes simpler if each of the integrals contained in the above sum 
is transformed from its current curvilinear system to a local cartesian coordinate 
system placed tangent to the curve at 3 = 0 (see Figure 4.1). The origin of the 
j th local coordinate system lies at the point (x cPj ,y cPj ) in the global system. The 
subscript cp is used to denote control point since, later in the analysis, boundary 
conditions will be imposed at these points. The j th transformation has the form 


= (x-x cP} ) cos otj + (y - y cPj ) sin a,- 
rjj = —(x — x cPj ) sin aj + (y - y cPj ) cos aj 

When the above transformation is used, Eq. (4.10) becomes 


N J fA4j/2 ds 

<t>(xo,y o) = J_ A( /2 <r (€ ) In r(f ; €_, 0 , >Jjo )ft d t 


(4.12) 


(4.13) 
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The distance from the transformed location of the fixed point (£ j0 , rjj 0 ) to the inte- 
gration point on the body surface, (£, 77 ;,(£)), is 

ri (bZjo,v») = ((jo - 0 2 + ho - nb (Of (4.14) 


The velocity components are found by differentiating Eq. (4.13) while making use 
of the chain rule and Eqs. (4.12) and (4.14) (the tildes are used to signify a velocity 
computed in the transformed coordinate system) 

N 

v x (x 0 , y 0 ) = J2 r^(Oo> r] jo )cos aj - V Vj (^ jo ,rj jo ) sin a,] (4.15) 

i= i 
N 

Vy(x 0 ,y 0 ) = Y [— ^ ( ^io > ) sin (^io ^ ) cos ^i] ( 4 - 16 ) 

j= 1 


where 


(£jo > Vjo ) 


T)jo ) 


L[‘ 

27 rJ- 

2tt J- 


A ^/2 

AO/2 




d( 


~ Vb(0 ds 


(4.17) 

(4.18) 



4.3. DERIVATION OF THE SOURCE-PANEL METHOD 


33 


4.3.2 Taylor Series Expansion of the Source Intensity and 
Surface Shape 

Up to this point no approximation has been introduced. If the distribution of source 
intensity cr(£) and the body shape ?7&(£) are known, then the above relations can be 
used to find the exact result for velocity at any point in the field. This is not possible 
in general, however, because the source distribution is not known a priori. In the 
panel method, both the source strength and the surface shape are expanded Taylor 
series centered about the element origin. If the element length is small compared 
with the distance to the field point, higher order terms in the expansion are small 
and can be neglected. 

4.3.3 Classical Panel Method 

In the classical or “first order” panel method, only the leading terms in each of the 
expansions are retained. That is, the body shape is approximated by a collection 
of linear segments and the source strength is taken to be locally constant over each 
of the elements. Under this approximation, the surface description contains slope 
discontinuities, while the source distribution is discontinuous in strength. The dis- 
continuity in source strength that occurs at the panel junctions has a repercussion 
in the solution in that the velocity becomes infinite at these points. The veloc- 
ity remains well behaved at the panel center, however, and the method can be 
used to produce accurate results provided that the surface velocity calculations are 
restricted to the panel center. 

An additional problem associated with the discontinuous source strength is that 
the body “leaks” mass at the panel junctions. Due to to a fortuitous symmetric 
cancellation of errors, the leaks do not pose a serious difficulty when external flows 
are computed. [40]. However, the situation is reversed when computing internal 
flows since error reinforcement spoils the solution[44]. If the classical panel method 
is applied to a duct flow problem, mass will not be conserved within the duct. In 
addition, the velocity field becomes singular near bends in the channel wall or at 
the duct end. Attempts to remedy this problem by decreasing the panel size are not 



34 


CHAPTER 4. INVISCID SOLUTION 


met with success since the first order approximation converges slowly to the exact 
solution. A prohibitively large number of panels would be needed to accurately 
describe an internal flow with the classical panel method. 


4.3.4 Higher Order Panel Method 


The best way to avoid the leakage problem in internal flows is to retain more terms 
in the expansions for the source distribution and surface shape. In the higher order 
method described by Hess[45], the body is described by quadratic surface elements. 
The singularity intensity is also allowed to vary quadratically. This formulation 
makes both the surface shape and source distribution continuous through the first 
derivative. The leakage problem is eliminated and the approximate solution con- 
verges to the exact one with the third power of the ratio of the panel length to 
the distance to the field point. The formulation of Hess is adopted here and the 
derivation which follows is similar to the less detailed account given in the original 
paper [45]. 

The derivation is started by introducing higher order approximations to the 
source distribution and the body surface shape. To second order, these quantities 
may be approximated as 

*(0 = + 6 it + \°it 2 + 0(f) 

m(t) = ^f + o(f) 

= K-e 2 +o(a 

where Kj is the local surface curvature. Note that, because the origin of the local 
coordinate system is tangent to the body curve, the first two terms of the Taylor 
series for the surface shape are zero. The arc length along the surface is found from 


(4.19) 

(4.20) 


s = 




(4.21) 


Eq. (4.20) is substituted above, and the resulting integral expanded for small £ to 


3 = e + i-# 3 + o(o 


give 


(4.22) 
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The jacobian for the change of variables between 3 and £ is 

= 1 + + 0(f) (4.23) 

Using Eqs. (4.14), (4.19), (4.20), and (4.23), the integrands of the expressions for 
the velocity components (Eqs. (4.17) and (4.18)) can be expressed as functions of £ 
and then expanded for small £. The resulting integrals give the velocity components 
as a power series in A£. This series will not converge, however, if the velocity is 
computed at a point closer than A£/2 from the panel center. This problem is 
relieved by using an alternate expansion of the integrands in which terms that 
correspond to a constant source strength over a flat panel are retained as functions 
of £, and all other terms expanded for small £. The resulting integrals involve the 
same terms that are found in a classical panel method, plus terms proportional to 
powers of A£ that represent the contributions from the higher order effects of surface 
and singularity shape. This formulation not only makes the series convergent, but 
at the same time, assures that the integrals reduce to the results for a classical panel 
method as the surface element becomes vanishingly small. 

The modified expansion is implemented by first writing Eq. (4.14) in the fol- 
lowing equivalent form 


r 2 = [(£* - O 2 + Vj 0 ] ~ 2j?j 0 mtt) + vi 

= rj - 2r] jo rj b (0 + T]% 


(4.24) 


The quantity r } represents the distance from the field point to a point on a ’’flat” 
element sitting on the £ axis (see Figure 4.1). Equation (4.20) is now used to write 
the above expression as 






Note that when rj is small, r f , rjj 0 , and £ are all of the same order of magnitude. 
Thus the grouping tj remains of order unity as rj drops below A£/2. The 
series for the induced velocities will converge if the quantity 77 is retained as a 
function of £ in the integration, and only the latter terms of Eq. (4.25) expanded. 
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In particular 


_ J_ 

r 2 r? 


1 + 


•(f) 


( + 0(( 3 ) 


(4.26) 


The above expression as well as Eqs. (4.20), (4.23), and (4.19) axe substituted into 
the integrals of Eqs. (4.17), and (4.18). The resulting expressions are expanded in 
powers of £, and terms through order £ 2 retained to give the velocity components 
induced by the j th panel 


^ {P s _ J_ f ^ (ft Q-0 f 

ViiitmVjo) 27r J-aZj/ 2 r } { : 


+ 


'¥U+", 


i (n]a, + dj) + 0(f 3 )) d( 


(4.27) 
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A ^ /2 
27T J-&Z ,/ 2 r j 


2 1 *2 + 


T2“ + O — °i + ^ 


^ 7 jo 


e+ 


\ + *i) i 2 + 0(^ 3 )} d(, 


(4.28) 


When the above integrals are evaluated, the results may be written in vector form 
as 


v r(o) 

= A j a J + 


v(0) 


v(i) 

Aj KjCj + Aj dj 


-(2) -i 

K ) a j + (4.29) 


Here j 4 represents the disturbance due to constant source strength distributed 
over a flat surface element. This is the only term which is resolved in a classical 
panel method. The next higher order term is composed of two parts, one that 
accounts for the surface curvature and another that accounts for the slope of the 
source intensity. The last term above involves still higher order effects of surface and 
singularity distribution curvature. The individual terms in Eq. (4.29) axe written 
out in full below. With the definitions 


r i — ((o + A£/2) 2 + Tjo 

r 2 = «o ~ A£/2) 2 + vil 


(4.30) 


i 
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the individual terms in Eq. (4.29) are 

^ 0| = 
a «o, _ 

W = Zi [*?oAS,°> + - 2Af] 

A<‘> = s< Mf + (AT - (i + «M£^SMa2!i)] 

■■If 21 = [fotjo-il, 01 + |({J - T?o - &A{] 

4™ = 3p- [j(?2 ~ ’?o)4| l 0) - ViAo'Af' + t/ 0 A{] 

These formulas give the velocity induced by the j th panel in terms of its local 

coordinate system. It is more useful to have the velocity in terms of the global 
coordinate system. Using Eqs. (4.15) and (4.16), it is possible to write each of the 
above terms in the following general form 


A Xj = A (j cos ol 3 - A r)j sin a j 
A V] = sin aj + A Vj cos a. 


(4.32) 


The derivatives of the source distribution still remain to be determined. This is 
done by using second order accurate finite differences as follows 


(4.33) 


where 


D i°i-l 
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+ Hjcr j - 

D j = 

b 

o(a+6) 

II 

b—a 

ab 

II 

b(a+b) 

II 

2 

a(a + 6) 

Hi = 

2_ 

ab 

II 

2 

b(a+b) 


(4.34) 
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and where 

a = + Afj) 

4.3.5 Boundary Conditions 

In order to satisfy the boundary conditions, it is necessary to determine the net 
influence of all panels acting at the control point of the i th panel. This is done 
by systematically finding the influence of the j th panel at the fixed control point 
i, and then summing the results over all j. When considering the j th panel, the 
point (£j 0 ,??j 0 ) in Eq. (4.29) is made to correspond to the i th panel control point. 
Next Eq. (4.32) is used to transform the influence of the j th panel into the global 
coordinate system. Equation (4.33) is then used to replace the derivatives of the 
source distribution in terms of the values at the panel center as well at the two 
adjacent panel centers. Finally the results are summed to give 

v, = £ ^ (DjOj-i + E,a, + J>,- +1 )] A(,+ 

1 

Aif \ K )cTj + (GjCj - 1 + Hj(?j + ijCTj+i)] (4.36) 

The above sum may be written equivalently as 

= E 3ii°i (4.37) 

j= i 

where 

Bij = + A^EjA^j + A\f KjA(j + + Kj)A^ + 

+ -JS^Gy+.A^ (4.38) 

The quantity B,j is interpreted as the influence of the j th panel at the i th control 

point. A linear system of algebraic equations for the source strengths is formed by 
imposing one boundary condition per panel. The boundary condition is that the 
velocity normal to the panel have a specified value, that is 

(Vi + V 0 0 )-n t = V ni 



(4.39) 
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where n is the outward pointing normal defined as 

n, = — sin a,x + cos a^y (4.40) 

For solid surfaces, V n is zero. Non-zero values of V n correspond to flow-through 
boundaries or porous surfaces. When each of the boundary conditions are enforced, 
the following linear system arises 

N 

£(” sin aiB Xij + cos a x B yiJ )<Jj = V Xao sin a, - V Voe cos a,- + V n . (4.41) 

j=i 

The solution of this matrix equation yields the source strength values <Tj and the 
velocity at each of the control points can be found through the use of Eq. (4.37). 
Velocities at any other arbitrary point in the field may be calculated by following 
the procedure used to generate Eq. (4.36), where the i th control point is replaced 
by the field point. 

4.3.6 Surface Curvature Calculation 

One remaining detail of the higher-order panel method is a procedure for calculating 
the surface curvature. If the body surface is described by an analytic function, the 
curvature is known everywhere, and the procedure is straightforward. In most 
instances, however, the geometry is not described by an analytic expression, but 
rather by N + 1 discrete points on the body surface. In this case, the curvature 
must be computed by a suitable approximate means. A good way to do this is to 
use a pair of parametric spline fits 1 where Xb and yt are treated as functions of the 
approximate arc length found by summing the linear distance between points. Let 
C be the approximate arc length, then the spline fits give 

Xb = x b (0 
yb = yb( 0 

X A pair of spline fits is needed since in general the surface can not be described by as a 
single- valued function of 


(4.42) 
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Let Xk and denote derivatives with respect to (. Then the curvature for the j th 
panel is computed from [46, page 464] 

XbVb - Vbi'b 


Kj = 


(xb 2 + Vb 2 ) 3/2 


(4.43) 


<= 7 + 1/2 


4.4 Inviscid Solution for the Single-Jet Ejector 

The panel method requires that the surface of the ejector be broken up into a collec- 
tion of small surface elements. Since the configurations treated here are symmetric, 
it is sufficient to consider only the upper half plane. Figure 4.2 shows how the upper 
half plane of the single-jet ejector is modeled with the panel method. The divid- 
ing streamline that approaches the ejector along the plane of symmetry is treated 
as a solid boundary. The following sloped linear segment represents the boundary 
between the viscous jet flow and inviscid secondary flow. The angle between this 
segment and the jet axis is taken to be 12° in accord with observations for the 
spreading rate of free jets. The position of the panels that cover the jet boundary 
remain fixed during the calculation. If the jet spreads less than the assumed 12°, 
some of the inviscid flow will be contained within the viscous region. This does not 
present a problem, however, since the viscous formulation is also able to handle the 
inviscid portion of the flow, provided that it is uniform. Suction boundary condi- 
tions are applied to the panels that cover the jet to simulate entrainment of the 
secondary flow. The magnitude of the suction applied at the jet boundary panels 
is determined in the solution process. The half-circle at the upper end of the jet 
boundary serves as a control station where a uniform flow boundary condition is 
applied. The need for the control station arises from the fact that panel methods 
become inaccurate inside the sharp concave corner that would otherwise exist where 
the jet intersects the ejector channel walls. The uniform flow boundary condition 
is justifiable since experiments have shown [47] that the secondary flow well within 
the channel becomes nearly uniform. 

The ejector shroud is modeled as an impermeable surface. The wake formed 
behind the ejector is treated as a continuation of the same streamline that defines 
the shroud. Under this assumption the mixing taking place in the wake is neglected. 
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This is justifiable since computations have shown that the details of the wake have 
little effect on the performance of the ejector. 


4.5 Inviscid Solution for the Dual-Jet Ejector 

The panel geometry used for the dual-jet ejector model is quite similar to that used 
in the single-jet model. The actual distribution of panels is shown in Figure 4.3. As 
in the single-jet case, the presence of symmetry allows the solution to be restricted 
to the upper half plane. Unlike the single-jet ejector case, the upper half plane for 
the dual-jet ejector contains one whole jet. The entrainment that occurs on both 
the upper and lower side of the jet is accounted for by applying suction to the panels 
that cover both sides of the jet. To account for asymmetries in the secondary flow 
with respect to the jet centerline, The distribution of entrainment on either side of 
the jet is not required to be the same. The distribution of entrainment velocities 
for both sides of the jet are again determined in the solution process. 

Owing to a non-uniform pressure profile in the secondary flow near the ejector 
inlet, the jet is acted upon by a transverse pressure difference. The jet responds to 
the pressure difference by curving its trajectory in such a way that the centrifugal 
force acting on the fluid particles is balanced by the force created by the pressure 
difference. The inviscid solution accounts for this by placing jet boundary panels 
on curved surfaces that reflect the curvature of the jet centerline. The shape of 
the curved jet trajectory is not known a priori, but rather must be determined 
along with the rest of the solution. For this reason, the panels that cover the jet 
boundary in the dual-jet case must be free to move as the solution progresses. After 
each iteration, the locations of the jet boundary panels are adjusted to conform with 
the latest computation of the jet trajectory. 




Figure 4.3: Panel geometry for the dual-jet ejector 
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Chapter 5 

Viscous Solution 


5.1 Equations of Motion 


Turbulent jets are similar to boundary layers in that their transverse extent is small 
when compared with their streamwise length. The fluid shear is contained within 
a thin layer near the jet axis, and thus the streamwise gradients are small when 
compared with the transverse gradients. Under these conditions, the boundary 
layer assumptions are met and it is permissible to neglect the streamwise diffusion 
term in the Navier-Stokes equations. In addition, turbulent jets have the special 
characteristic that they develop in the absence of solid surfaces, where molecular 
viscosity is an important factor. Turbulent transport dominates molecular transport 
everywhere in the jet flow field, and it is therefore possible to entirely neglect the 
effects of viscosity[48, page 53]. 

The equations that govern the jet flow are the turbulent boundary layer equa- 
tions in which the molecular viscosity has been neglected. 


du dv 
dx dy 


= 0 


(5.1) 


du du 1 dp 1 dr 

U dx dy + pdx p dy 


(5.2) 


The transverse momentum equation is retained in the following approximate form[49] 
that relates the lateral pressure gradient to the centrifugal force associated with 
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curved particle trajectories 

dp pu 2 

dy R 

The flow is assumed to be incompressible, and thus the equation of state is simply 


(5.3) 


p = const 


(5.4) 


Finally, the turbulent shear stress is related to the mean velocity gradients via the 
Boussinesq approximation 

l Hi, 

(5.5) 


1 du 

~T = V t — 
p dy 


Here u t is the “eddy viscosity coefficient” which is determined from a simple alge- 
braic stress model. 


5.2 Solution Alternatives 

The boundary layer equations are classified mathematically as being parabolic. 
Parabolic equations are relatively simple to solve since the properties at any given 
station are only affected by the upstream flow history. This one-sidedness allows ap- 
proximate solution methods to be formulated in terms of simple marching schemes 
that integrate the equations in a single streamwise pass. The merits of a few suitable 
approximate schemes, as well an exact solution alternative are considered below. 

5.2.1 Similarity Solutions 

In a few special cases, the boundary conditions are such that the boundary layer 
equations yield exact solutions. These solutions are all of the similarity type, in 
which the absence of a natural length scale dictates that the solution must depend on 
the ratio y/x. This regrouping of variables reduces the dimension of the problem by 
one, and the boundary layer equations reduce to an integrable ordinary differential 
equation. 

The turbulent free jet is one such special case. A similarity solution to the 
free turbulent free jet was first found by Tollmien[50] in 1926. Tollmien, who used 
Prandtl’s mixing length formula, arrived at the solution in terms of a modified 
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stream function that had to be found numerically. Later Gortler[51] used an eddy 
viscosity model to arrive at a purely analytical result in which the solution is written 
in terms of hyperbolic functions. These solutions are extremely valuable since they 
give the velocity everywhere in the field in terms of a single known function. 

While similarity solutions exist for the free jet, they do not, in general, exist 
for confined jets. The separation between the channel walls, the external flow 
velocity, and the pressure gradient all introduce length scales that spoil similarity. 
Newmann[52] performed a detailed study of the conditions under which self-similar 
solutions exist for jets subjected to a streamwise pressure gradient. He found that 
similarity is only possible under the following restrictive conditions on the external 
flow 

— = const (5-6) 

u 1 


and 

= const (5.7) 

u 0 

where u 0 is the external velocity, Ui the jet excess velocity (u moI — u 0 ), and b the 
excess velocity half-width. These are strong conditions which are not expected to 
be satisfied in ejector flows. 

While similarity solutions do not in general exist for ejector flows, some pre- 
vious investigators[9,53,54] have nonetheless incorporated the self-similar solution 
to a free jet in their analysis. In these works, it was assumed that the free jet 
solution would provide a reasonable estimate of the mixing process within the ejec- 
tor. Experiments[47] do not support this assumption, however, and in fact show 
a significant departure from self-similarity with downstream distance. The use of 
free jet solutions may be acceptable in low accuracy solutions of relatively short 
ejectors, but should be ruled out in work aimed at a better understanding of the 
ejector mixing process. 


5.2.2 Finite Difference Methods 

A more general method of solving the confined jet problem is through a finite 
difference calculation of the boundary layer equations. Unlike the elliptic equations 
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encountered in the inviscid flow, the boundary layer equations may be solved under 
a finite difference scheme that does not involve iteration[55, chapt. 7] and [56]. 
A grid must still be generated, but the solution is obtained in a straightforward 
marching process, in which a tri-diagonal system of equations is inverted at each 
streamwise location. Finite difference procedures for solving the viscous flow within 
the ejector have been used in the past by several investigators [11,57,58]. 

Although the finite difference approach is relatively efficient, it still is not fast 
enough for the purposes of this work. Fortunately, an alternative method, superior 
in efficiency, exists for solving confined jet flows. This is the “momentum integral 
method” or more simply “integral method” . 

5.2.3 Integral Methods 

An integral method is a form of approximation that does not attempt to satisfy 
the boundary layer equations at every point, but rather only satisfies the equations 
on an average sense over the thickness of the shear layer. This is accomplished by 
first integrating the boundary layer equations across the layer, and then finding an 
approximate solution to the resulting integro-differential equation. This approxi- 
mate solution is found by assuming that the velocity profile has the same shape at 
each streamwise location, and that it is only the relative scaling of the profile which 
changes as the flow evolves. This idea allows the velocity profile to be expanded 
in terms of assumed shape functions of y, but undetermined scale functions of x. 
When the approximate expression is substituted into the integral form of the mo- 
mentum equation, the integral in y can be performed analytically. What remains 
is a coupled set of ordinary differential equations for the scale functions of x. Only 
a trivial amount of computing effort is needed to march the solution of this set 
equations in the streamwise direction. 

The integral method was first applied to boundary layer flows by von Karman 
[59] and later refined by Pohlhausen[60]. In these original works the velocity profile 
was expanded in a fourth order polynomial of y/6(x), where S(x) is the boundary 
layer thickness. The problem was thus reduced to solving a single ordinary differ- 
ential equation for the scale function S(x). This solution procedure is extremely 
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efficient and surprisingly accurate; the Karman-Pohlhausen solution predicts the 
skin friction to within 3.5% of the exact solution for a flat plate boundary layer. 

Integral methods have also been successfully applied to confined jet flows. 
Curtet[61] developed an integral method for confined jets which was valid over the 
region where a definable inviscid flow co-exists with the jet in the channel. Hill[62] 
extended this analysis to the region where the flow within the channel is fully 
turbulent. Bevilaqua [9] and Tavella[12] have refined the method still further, and 
have applied it to ejector flows. Tavella compared his results with experiments and 
found a good agreement for the velocity profile and pressure evolution. Tavella’s 
solution proved not only to be accurate, but extremely efficient as well. The four 
differential equations in his model could be marched through the ejector in a fraction 
of a second on an IBM 30-81 processor. In light of the previously demonstrated 
accuracy and economy of the integral method, it is adopted here as the preferred 
solution procedure for the viscous region. 

The velocity profiles which are used in this work involve several scale functions 
of x. In this case, the integrated momentum equation itself does not provide enough 
information to determine one differential equation for each of the scale functions. 
The system is closed by using the method of weighted residuals to generate addi- 
tional differential equations for the scale functions. 


5.3 The Method of Weighted Residuals 

The method of weighted residuals is a particular solution procedure for the inte- 
gral method that allows an arbitrary number of independent differential equations 
for the scale functions to be generated from the momentum equation. A special 
application of the method is developed to produce a square system of equations 
for the scale functions by simultaneously enforcing an exact global conservation of 
mass and momentum, while enforcing an approximate global conservation of energy. 
This formulation leads to a condition that requires the residual error, created when 
the approximate velocity and pressure profiles are substituted into the momentum 
equation, be minimized. Minimization is achieved by demanding that the error be 
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orthogonal to an independent set of weighting functions. 

The derivation of the method is straightforward. The first step is to integrate 
the continuity equation Eq. (5.1) with respect to y to give v as a. function of u 


f y du , 

v= -J„^ dy 


(5.8) 


The lower limit in the integration is jet centerline, y x , where the v component 
of velocity vanishes by symmetry. Next let T be the operation on it and p that 
represents the streamwise momentum equation. Then Eqs. (5.2), (5.5), and (5.8) 
may be combined to give 

r y du 


r r i du 

T{u,p}=u^- 


[V du 
L Tx dy 


du 1 dp d 2 u 

J dy + pdx 1 dy 2 


(5.9) 


Approximate solutions for the velocity and pressure profile are now introduced. The 
assumed profiles depend explicitly on y through the known shape functions, and 
implicitly on x through the unknown scale functions. Let the scale functions be 
denoted by the sequence Cj(x), then the approximate solution forms (denoted by 
hats) may be written symbolically as 


u(x,y) ~ u(cj(x),y) j = 1, 2, ..., N - 1 (5.10) 

p(x,y) ~ p(cj(x),y) j = 1, 2, ..., N ^ ^ 

= c N (x) + p(cj(x), y) j = 1,2, 3, ...AT - 1 
Note that the pressure has been split in two parts; one a function of x alone, and the 
other a function of both x and y. The elliptic effects associated with the pressure 
field are captured by taking p to be the solution of the approximate transverse 
momentum equation (Eq. (5.3)). The function p is an order of magnitude lower 
than c/v, and therefore is a higher order term in the streamwise momentum equation. 
In the usual procedure for the partially parabolized Navier-Stokes equations [55], 
p is neglected in the streamwise momentum equation and retained only in the 
transverse momentum equation. In this work p could also justifiably be neglected 
in the streamwise momentum equation. This is not done, however, since if p were 
neglected, Bernoulli’s equation for the inviscid flow would not be exactly recovered 
at far distances from the jet centerline. 
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In order to obtain a set of equations to determine the unknown scale functions, 
the momentum equation is transformed from a statement of local flux balances 
to one of global flux balance by integrating it across the layer. If the viscous 
region extends from y = 0 to y = H, the equation for the global conservation 
of momentum applied to the approximate profiles u and p provides the following 
governing equation for these quantities 

f H T(u,p)dy = 0 (5.12) 

Jo 


Use of the above averaged form of the momentum equation to specify the approx- 
imate profile leads to weaker solutions than those for the original differential form 
of the momentum equation. Although exact solutions to the above integral equa- 
tion can easily be found, they will not satisfy the differential form of the momentum 
equation at each point. The weighted residual method provides a means of minimiz- 
ing the error, however, and the weak solutions may used as a good approximation. 
In fact, when a properly implemented weighted residual method is used, the approx- 
imate solution will rapidly converge to the exact solution as the assumed profiles 
become increasingly flexible. 

When the integral formulation is used, a subtle point arises in connection with 
the global conservation of mechanical energy. The equation that governs the flux of 
mechanical energy in incompressible boundary layer type flow is formed by taking 
the product of the streamwise velocity and the streamwise momentum equation. In 
differential form, the momentum and mechanical energy equations are redundant, 
since one is just a scalar multiple of the other. If the flux of momentum is in balance 
at each point, then the flux of mechanical energy is also in balance at each point. 
In the momentum integral formulation, redundancy between the momentum and 
energy equations does not exist, since the momentum flux is not required to balance 
at each point. The momentum flux is of course required to balance on the average, 
but this is not a sufficient condition to insure an average balance of energy flux. In 
essence, a global conservation of momentum does not imply a global conservation 
of mechanical energy. An independent equation must be used to enforce an overall 
balance of mechanical energy. 
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The equation needed to insure a global balance of mechanical energy is the 
energy integral equation. In analogy to the momentum integral equation, it is 
created by integrating the differential form of the energy equation. It has the form 

[ H uT(ii,p) = 0 (5.13) 

Jo 

If the velocity and pressure profiles can be specified by two unknown scale functions, 
then the momentum integral and energy integral equations are sufficient to solve 
the problem. It should be remarked that other possibilities exist for closing a 
two-equation system. The momentum integral equation along with a “moment of 
momentum” equation have been used by previous investigators[12,6l]. While this 
alternate formulation leads to a solution, it should be criticized in that no attempt 
is made to conserve energy. When a choice exists, the energy integral equation 
should be preferred over other possible equations that lack physical meaning. 

In situations where more than two scale functions must be determined, the mo- 
mentum integral and energy integral do not provide enough information to close 
the system. This presents an apparent dilemma, since all three invariants of the 
flow (mass, momentum, and energy) have already been specified. No further equa- 
tions which impose physical constraints on the system may be formulated. There 
is danger in imposing some non-physical condition, since this may overdetermine 
the system. A way out of this difficulty is to restate the energy equation in an 
approximate form. This operation then leads to additional conditions that require 
the error made in the approximation be minimized. 

The approximate energy integral equation is derived as follows. Suppose that 
the function u can be decomposed in terms of a suitable set of basis functions. Then 
it is permissible to write 

OO 

u = H «i(*)t0t(v) (5.14) 

1=1 

As an approximation, assume that the u which multiplies T in the energy integral 
equation can be represented by a finite number of terms in this series. The u that 
appears in the operator T itself is not expanded, but is left intact. In this case the 
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energy integral equation (Eq. (5.13)) is approximated by 


2_, a,(x) / Wi(y)T(u, p)dy = 0 

,=i Jo 


(5.15) 


The sum is made to vanish by imposing the strong condition that each of its com- 
ponents vanish independently. This requirement yields the following sequence of 
equations 

/ Wi(y)T(u,p)dy = 0 * = 1,2, ...,JV (5.16) 

Jo 

Note the similarity between this equation and the momentum integral equation 
(Eq. (5.12)). The two are not independent, since the function 1 that weights T 
in the momentum integral equation is either contained directly in the basis in,-, or 
can be generated as a linear combination of these. If the basis functions are chosen 
so that W\ — 1, then the momentum integral equation is actually the first term 
approximation to the energy integral equation 1 . In this case Eq. (5.16) alone is 
sufficient to insure a global conservation of momentum and an approximate global 
conservation of mechanical energy. In this work the basis functions are always 
chosen so that this condition is satisfied. 

At this point it is worthwhile to reinterpret Eq. (5.16) as a statement of the 
weighted residual method[63]. The term T(u,p) represents the residual error left 
when the approximate velocity and pressure profiles are substituted into the mo- 
mentum equation. The basis W{ can be thought of as a set of weighting functions. 
With these interpretations, Eq. (5.16) states that each projection of the error on 
the finite space spanned by the weighting functions, u\ vanishes. The fact that the 
error is orthogonal to all the members of u>,- implies that it is minimized with respect 
to these functions. In the limit as infinitely many projections are taken, the error 
will be driven to zero everywhere. This follows from the fact that the only function 
that is orthogonal to all members of a complete set is the function zero itself. 

The weighting functions are yet unspecified. The only restrictions imposed on 
these are that they form a complete set and that uq = 1. In most cases the weighting 
functions are chosen to make the integrations as easy as possible. In some cases 

1 This fact may explain why previous investigators[12,61] obtained reasonable results without 
explicitly enforcing the energy integral equation 
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it is possible to choose the weighting functions such that the approximate solution 
converges to the exact one in an optimal way. Weighting functions from both of 
these categories are used in this work. More discussion concerning the individual 
sets of weighting functions will be discussed in a later section. 

Let us now return to Eq. (5.16) and see how it provides a set of equations for 
the scale functions. First consider the residual. If the approximate solutions u and 
p are substituted into Eq. (5.9), the right hand side no longer vanishes, but rather 
will equal some residual error, e 

e = r{u,p} 


. x 1 dr 
\ dii dii fy dii 


dii dii fy dii , 1 p 1 . 1 dr 

o ST TT d y + ~a~ c i a - (5-17) 

dcj dy J yi dcj pocj pay 


Note that the residual is linear in the first derivatives of the scale functions. For 


convenience the residual may be written more compactly as 

«(*,y) = n ij(x) - 


(5.18) 


Now if the above form for the residual is substituted into Eq. (5.16), the following 
system of equations for the scale functions arises 


Ci j” W iqi dy =- j” w^-dy 


i = 1, 2, ..., N 


(5.19) 


The right hand side is simplified through integration by parts. If the shear due to 
the boundary layer at the wall is neglected, the above system of equations may be 


written as 


[H fH dw; T 

c ‘L a ' q ’ dy = ~ w/ y 


(5.20) 


This system of equations for the scale functions may be written more compactly in 
matrix form as 

AijCj = b { (5.21) 


where 


rH 

Aij = / Wiqjdy 
Jo 


( 5 . 22 ) 
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Since both the shape functions, qj(ck(x),y), and the weighting functions tu,(y) are 
universal, the integrations can be done once and for all. The resulting matrix and 
right hand side depend only on the values of the scale functions. The solution is 
obtained by marching the above system of equations downstream, computing and 


inverting the matrix at each step. 


5.4 Quasi Self-Preserving Velocity Profiles 

The approximate velocity profiles used here are formed by making minor modifica- 
tions to the self-similar profiles observed for free jets. These modifications involve 
a generalization of the evolution of scaling parameters such as the centerline ve- 
locity and the jet half-width. In the self-similar solution, the scaling parameters 
are rigidly defined functions of the streamwise distance, while in the approximate 
profiles, these quantities are taken to be general functions of x. As an example, ex- 
periments for a two-dimensional free jet[64, page 21] give the following self-similar 
velocity profile 

= ~°' 693 (i7To) (5 24) 

where u ex is the jet exit velocity, and t is the jet exit width. In this expression the 
centerline velocity decays like the inverse square root of x, while the characteristic 
width of the jet grows linearly with x. The approximate velocity profiles are made 
more flexible than this by allowing the scaling parameters to vary with x in a general 
sense. The above velocity profile is modified accordingly as follows 

u(x,y) = u 0 (aO + Ui(z) ex P “ ( 5 - 25 ) 

where the scale factors u 0 , iq, and b are functions of x to be determined in the 
solution process. The shape of the approximate velocity profile is the same as a self 
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Figure 5.1: Universal nature of the velocity profile. The pressure is related to Uq 
through Bernoulli’s equation only in region 1. In region 2 u 0 is a fictitious quantity, 
and the pressure must be computed directly from the momentum equation. 

similar profile, but the evolution of its scale is not restricted to obey the rules for 
mathematical similarity. For this reason the profiles are called quasi self-preserving. 

An important feature of the approximate velocity profile is that it is valid from 
the jet nozzle all the way to the shroud exit. The velocity profile at each cross-section 
within the ejector walls is assumed to be the central portion of the velocity profile 
of an effective jet which develops in an unbounded space. The effective jet is special 
in the sense that it only satisfies the conservation laws in the region bounded by the 
channel walls. This idea was suggested by Abramovich [48, page 634], who noticed 
that experimental data could be rationalized in this way. Figure 5.1 shows the basic 
idea. The earliest attempts at using the integral method to solve confined jets did 
not make use of this type of formulation. Consequently, the solutions obtained were 
either restricted to the inlet region of the duct[61], or unnecessarily complicated by 
the inclusion of two separate expressions for the velocity profile[62]. 

A certain amount of confusion is evident in the literature on how to properly 
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account for the pressure when using the unified velocity profile formulation. To 
understand the source of difficulty, consider the two regions shown in the sketch of 
Figure 5.1. In region 1 the real jet and the effective jet are actually the same. Fluid 
• with velocity u 0 , yet untouched by the primary jet, can be related to the pressure 

through Bernoulli’s equation. That is p = p at m — l/2pttQ. This relation is used in 
region 1 to eliminate the pressure in terms of the external velocity. In region 2 
the viscous flow extends all the way across the channel. The velocity profile within 
this region has the shape of the middle portion of the effective jet which does not 
acknowledge the presence of the walls. The quantity u 0 no longer has a physical 
meaning, but rather is a fictitious quantity that represents the external velocity in 
the effective profile. The evolution of the velocity profile in region 2 is determined by 
applying the conservation laws to only that portion of the flow contained within the 
channel walls. Since it is only the region within the ejector that is required to satisfy 
the conservation laws, there is not a direct connection between the pressure within 
the ejector and the fictitious inviscid velocity outside. Application of Bernoulli’s 
equation to relate the pressure to uo in region 2 does not make sense, since it would 
imply that the pressure within the ejector is governed by the fictitious jet profile 
and not the properties of the flow within the ejector. In spite of this, there are 
instances in the literature where Bernoulli’s equation is used in this region[54]. The 
correct way to handle the pressure in region 2 is to include it as an independent 
unknown quantity in the solution of the momentum equation. 

5.5 Eddy Viscosity Hypothesis 

j 

i The Boussinesq approximation for the turbulent stresses was introduced in Section 

i 5.1. The eddy viscosity coefficient contained in this relation is determined from 

a suitable Reynolds stress model. In this case a simple algebraic model is used. 
From dimensional considerations it is evident that the eddy viscosity coefficient is 
composed of the product of a length and a velocity, that is 

I v x ~ u t lt (5.26) 


[ 
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where u t and l t are the characteristic eddy velocity and eddy size respectively. These 
quantities are not known, but can be estimated from the properties of the mean 
flow. In this work, the following scaling hypothesis is used 


u t = kuib (5.27) 

where Ui is the jet excess velocity and b is the jet excess velocity half- width. Experi- 
mental measurements of the Reynolds stresses[47] support this scaling. Tavella[12], 
who used this same scaling, obtained close agreement with experiments. Tavella 
determined the constant k by assuming that the spreading rate of the confined jet 
should reduce to that of a free jet in the close neighborhood of the jet origin. This 
analysis results in a value of k = 0.0283. This value is adopted in the present work 
as well. 


5.6 Viscous Solution for the Single-Jet Ejector 

For the one jet case, the velocity profile used by Tavella and Roberts [12] is adopted 

u(x,y) = u 0 (x) + u 1 (x)exp(rj) (5.28) 


where 



(5.29) 


The constant a is chosen to be yj ln(2), so that b has the interpretation of the excess 
velocity (ti - u 0 ) half-width. 

In order to justify the use of this profile, Tavella[ 12 ] performed a statistical 
analysis in which the assumed profile shape was compared against experimental 
data for a confined turbulent jet. He found that the profile fit the data exceptionally 
well near the nozzle, but degraded slightly toward the end of the channel. In the 
worst case, however, the fit was still within the scatter of the data. Tavella also 
tried a more flexible profile in which the exponent was developed in powers of 77 . 
This representation did not produce any significant improvement in accuracy, and 
thus was abandoned in favor of the simpler expression. 
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The flow variables are symmetric with respect to the jet centerline in the single- 
jet case, since the jet is issued along the channel symmetry plane. As a result, the 
jet centerline is confined to remain on the plane of symmetry, and thereby follows 
a straight trajectory. The radius of curvature of the jet centerline is infinite in this 
instance, and the transverse momentum equation (Eq. (5.3)) reduces to 


oy 

which implies that the pressure is a function of x alone. Thus 


(5.30) 


$>, y ) = p(x) 


(5.31) 


5.6.1 Matching Region 


Within the viscous-inviscid matching region, the external velocity and the pressure 
are known from the inviscia solution. With u 0 and p known, the viscous problem 
reduces to finding solutions for u x and b. The momentum integral and energy 
integral equations are use to solve for these two unknowns. 

The derivation is simpler if the momentum and energy integral equations are 
manipulated slightly before substitution of the approximate velocity and pressure 
profiles. The momentum and energy integral equations may both be written in the 
following general form 


u " v tt + '‘"-tt ~ u "-7r) dy = 0 (532) 

Jo [ dx oy pox pay ) 
where n = 0 for the momentum integral equation and n = 1 for the energy integral 
equation. After algebraic manipulation and use of the continuity equation, the 
above relation may be written equivalently as 

i:\i 


n + 1 


u " +1 + 




d_ 

+ dy [ 


n + 1 


u n+1 + nu 


n-lO 

P P J 


% + n <" - dy = ° 


(5.33) 


If the upper limit of integration is held fixed, the differentiation with respect to x 
may be brought outside the integral. The integrals of the derivatives with respect 
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to y are evaluated assuming that u(0) = 0, r(0) = 0, and t(H ) = 0. Finally |£ is 
assumed to be zero and Eq. (5.5) is used to rewrite the turbulent stress in terms 
of the mean flow quantities. The momentum and energy integral equations then 
become 


d r» r 2 i 

/ U + - 

ox Jo p 


p 

p J 


dy + u(H)v(H ) = 0 


(5.34) 


d_ 

dx Jo 


1 2 

r + 


ip)] dy + (i AH) + ip) v{H) = -v,\” ^) dy (5.35) 

Bernoulli’s equation is valid for the inviscid portion of the inlet flow. Assuming 
the vertical component of velocity to be small when compared with the horizontal 
component, the pressure may be related to the external velocity as follows 

11 1 o 


V- p Patm 2 u 0 


(5.36) 


Now Eq. (5.28) for the velocity profile, Eq. (5.36) for the pressure profile, and 
Eq. (5.27) for the eddy viscosity coefficient are substituted into the momentum and 
energy integral equations (Eqs. (5.34) and (5.35)). The integrations and differen- 
tiations are carried out while assuming that b <C H . After some simplification, the 
following system of equations results 


On 

a 12 


' fen 

fe 12 

1 1 1 

°21 

a 2 2 

l * 1 

fe 2 i 

&22 

l J 


(5.37) 


where 


an — uq + y/2u\ 


«12 

°21 

°22 

fell 
fel2 
fe 21 

&22 


^ ( U 0+ ^ u l) 

y/2 ul + 3v,qUi + 

^ (\/2uo + | u o«i + j\/| u i) 


0 


— 2lt! 


kot 2 u\ 


-«i {2\/2u 0 + |iii) 


(5.38) 
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5.6.2 Fully Viscous Region 


Within the fully viscous region of the ejector, the external velocity and the pres- 
sure are no longer able to be computed from the inviscid solution. The system of 
viscous equations must be enlarged so that u 0 and p may also be obtained. With 
the addition of two more unknowns, the momentum integral and energy integral 
equations alone do not provide enough information to close the system. 

One additional equation is derived from the condition that no flow pass through 
the ejector wall. This condition is stated as 


v(x,y = H) = u(x,y = if) — 


(5.39) 


When the above boundary condition is enforced, the system is still one equation 
short of closure. Closure is obtained through use of the weighted residual method. 

The first step in implementing the weighted residual method is to derive the 
individual terms in the momentum equation from the approximate velocity and 
pressure profiles. Equations. (5.8), (5.28), (5.31), (5.5), and (5.27) are used to give 


= ii 0 + exp (r/)u! + 2 ^-rj 2 exp (rj)b 

= - ^ T]u 0 + ^erf^tq + y l - tj exp(r;)^ b 


-2-iq77exp(77) 


(5.40) 


(5.41) 


(5.42) 


The residual is now constructed according to Eq. (5.17) 


A{u,p} 


= [“0 + «i(l + 2t; 2 ) exp ( 77 )] u 0 + 

u 0 exp ( 77 ) + 2 (^-V exp(p)erf(p) + ^ exp(- 2 ^ 2 )^ ft! + 


(5.44) 
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2 t 


u 0 t ] 2 exp(rj) + ^-UiT] exp(y)er{(T]) 


- = —2kau\r) expiq) 
P 


(5.45) 


The weighting functions are chosen primarily for algebraic convenience. They 
are simply the power sequence 


— ,p-i 


Wj = y 


i = 1 , 2,3 


(5.46) 


The choice of weighting functions allows the integrations indicated by Eqs. (5.22) 
and (5.23) to be performed analytically. When the integrals are evaluated, the 
system of equations may be written as 


(5.47) 


The first three equations above are formed by weighting the residual with y°, y 1 , and 
y 2 respectively. The fourth equation enforces the flow tangency boundary condition 
at the wall. With the definitions 


°n 

a 12 

a 13 

°14 


t . 1 

It 0 


' w ' 

a 21 

a 2 2 

0-23 

a 2 4 

< 

U 1 

> = < 

b 2 

a 3\ 

<*32 

033 

<234 
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^3 

a 4 i 

a 42 

a 43 

<244 


b 
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V H = 

aH 

b 

E, = 

exp(-»?tf) 

E 2 = 

ex P(- 2 Vh) 

F 1 = 


f 2 = 

iy| erf(V^J. 


the individual terms in Eq. (5.47) are 
an = — (uq — uiEi) t]h + 2uiFi 


a l 
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hi 
b 2 


= 0 


i fb \ 2 r 

2 [a ) [ 


6 , = - 


3 r 




(Fi - ’nrfEi'j 


ka 2 u\ 


b 4 = - - 


fb\ 3 

'adH , 

u) 
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5.7 Viscous Solution for the Dual-Jet Ejector 

The velocity profile for the two jet case is constructed from interfering hyperbolic 
functions 


u(x,y) = u 0 (x) + -ci( x ) 


ui(x) 


tanh( 7 y + 77 1) — tanh(r/ — t?i) 
sech 2 (77 + t?i) + sech 2 (7/ - 7/ x ) 


+ 


where 


and 


77 = 


ay 


= 


6(x) 

qyi(g) 

6(x) 


(5.48) 


(5.49) 


(5.50) 


The shape of the profile is shown in Figure 5.2. The parameter yi(x) represents 
the location of the jet centerline, u 0 (x) the external velocity at the ejector wall, 
uo(x) + a(x) the external velocity at the channel centerline, Ui(x) the jet excess 
velocity, and 6(x) the jet excess velocity half-width. The hyperbolic secant functions 
are patterned after the self-similar solution to a free jet [64, page 19]. The hyperbolic 
tangent functions are used to allow for unequal secondary flow velocity on either 
side of the jets. In this case the constant a = cosh -1 (\/2)- 

In the two jet case, the lack of symmetry in the secondary flow with respect 
to the jet centerline allows a pressure difference to develop across the jets. The 
pressure is therefore not constant within the layer, but rather develops some profile 



Figure 5.2: Velocity profile for the dual-jet ejector 


in making the transition from the external pressure on either side. An approximate 
expression for this profile that satisfies Bernoulli’s equation on either side of the jet 
is 

p(x,y ) = p- | pa(u 0 + 1/2 a) [tanhfa + Vi)~ tanh (?7 - t h) - 1] (5.51) 

where the average pressure p is defined as 

P = Patm — t;P ( u o + u oa + l/2a 2 ) (5.52) 

5.7.1 Matching Region 

Within the viscous-inviscid matching region, the jet centerlines follow curved tra- 
jectories as a result of the non-uniform pressure field developed by the secondary 
flow. The boundary layer equations still apply in the case of a moderately curved 
layer provided they are written in a curvilinear coordinate system. If s and n are 
the directions of a curvilinear coordinate system that is locally tangent to the jet 
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centerline, the boundary layer equations may be recast as follows 


du dv_ 

lh + fo~ 


(5.53) 


du du 1 dp _ 1 dr 

U ds V dn p ds pdn 

dp pu 2 
dn R 

The velocity and pressure profiles must also be recast in the curvilinear coordinate 
system. In considering the jet that lies in the upper half-plane, the following trans- 
formation is used to rewrite the expressions for the velocity and pressure profiles in 
terms of a coordinate system that is everywhere tangent to the jet centerline 




x — ► s 


(5.56) 


y-y i -» n 


(5.57) 


With the assumption that y + y x b, the velocity and pressure profiles become 


u(s,n ) = uq(-s) -I- -a(s) 


1 — tanh(C) 


+ Ui(s)sech 2 (C) 


(5.58) 


where 


P = P ( s ) + ^>«(s) (u 0 (s) + l/2a(s)^ tanh(C) 


c = 


an 

T 


(5.59) 

(5.60) 


Within the viscous-inviscid matching region u 0 , a, and p can be deduced from the 
inviscid solution. The viscous problem therefore reduces to finding solutions for Ui , 
b , and y\. As in the single-jet case, the momentum and energy integral equations 
are used to provide equations for u x and b. An equation for y x is derived from the 
normal momentum equation. 

Due to lack of symmetry with respect to the jet centerline in the dual-jet case, 
the integrals in the momentum and energy integral equations must extend on both 
sides of the jet centerline. Analogous to Eqs. (5.34) and (5.35), the momentum 
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and energy integral equations for the dual-jet ejector written in the curvilinear 
coordinate system are 


dn + u(H/2)v(H/2) - u(-H/2)v(-H/2) = 0 (5.61) 


I”' 2 [u 2 + -p dn + u(H/2)v(H/2) - u(-H/2)v(-H/2 ) = 0 ( 

OS J-H/2 [ Pi 

d fW \ fl J ,l\l, 1 f H ' 2 dp, 

— / u -u + -p dn / v—dn + 

ds J-H /2 [ V 2 P )\ p J-h /2 dn 

v(H/ 2) (iu 2 (if/2) + i?(J?/2)) - v(-H/ 2) (±u\-H/2) + 2) 

= t” /2 ( 

J-h /2 \ on / 


HI 2 \ dn 


Calculation of the Jet Trajectory 


(5.62) 


As stated in Eq. (5.3) the pressure difference acting across the jets results in a 
curvature of their centerlines. Since the pressure difference across the jet is known 
from the inviscid solution, Eq. (5.55) may be integrated across the jet to yield an 
expression for the curvature of the jet centerline 

k = (5.63) 

R J v ' 


where 


A p = -pa(2u 0 + a) 


(5.64) 


t2.hb „ 

J = p u 2 dn (5.65) 

J- 2.5b 

The curvature of the jet centerline is also related to the derivatives of yi(x) 

k = (5.66) 

(1 + til) 

With the definition q = y x , the above equation may be written as the following two 
first order differential equations that govern the jet trajectory 

1/1 = q (5.67) 

q = k(1 + q 2 ) 3/2 

These two equations together with Eq. (5.63) are integrated along with the rest of 

the equations for the viscous solution. 


System of Equations 


Equations. (5.58) and (5.59) for the velocity and pressure profiles respectively are 
substituted into the momentum and energy integral equations (Eqs. (5.61) and 
(5.62)) and the integrations and differentiations carried out assuming H/ 2 b. 
The results of these operations are combined with Eq. (5.67) to give 
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6 41 — 


i-a(2u 0 + a) 


2 - 
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|i i\ + 2u 0 ui + «ia - \a 2 


[l + ? 


.1 3/2 


The vertical component of velocity for the matching region is found from Eqs. (5.53) 
and (5.58) 


v 




|(u 0 + tanh(C)ux - 
a l 

Ui( tanh 2 (C) + + 


^ ^lncosh(C) - c) (5.69) 

tanh(C) — ^alncosh(C) — «iC j (5.70) 


5.7.2 Fully Viscous Region 

Within the fully viscous region of the ejector, the inviscid solution no longer provides 
the information to determine u 0 , a, and y x . As in the single-jet case, the method 
of weighted residuals is used to generate additional equations for these unknowns. 
Unlike the single-jet case, however, the integrals that arise in the fully viscous region 
of the dual-jet ejector are quite difficult to evaluate analytically. For this reason, the 
integrals are evaluated numerically at each streamwise location. When an efficient 
Simpson’s rule algorithm is used to perform the integrations, the time required to 
compute the fully viscous portion of the flow is still quite small. 

The fully viscous region begins far enough inside the ejector to assume that the 
pressure has become uniform across the channel. The jet trajectories correspond- 
ingly are no longer curved, but rather follow straight trajectories. It is therefore 
appropriate to return to a cartesian coordinate system. The velocity profile is given 
by Eq. (5.48) and the pressure profile reduces to 

P(x,y) = p(x) (5.71) 

The weighting functions are chosen in this instance to minimize the integrated 
square of the error. Using Eq. (5.18), the integrated square of the error may be 


written as 


/: ^ = /: ^ + (?d dy 


(5.72) 


Now the integrated square of the error is minimized by requiring that it be stationary 
with respect to the Cj. 


d r H rH f i 

w jo t2iy=2 i * p - iy = ° 


(5.73) 


or after integrating the stress term by parts assuming that r(0) = t(H ) = 0 




(5.74) 


The residual is now constructed from Eqs. (5.48) and (5.71). With the definitions 


M = T] + ??i 

= T] - 7?i 

Ti = tanh(r7 + 77i) 
T 2 = tanh(?y — r/i) 

51 = sech 2 (r/ + *7i) 

5 2 = sech 2 (r/ — 77i) 

Qi = lncosh(r 7 + ? 7 i) 
(? 2 = lncosh(r/ — 77 a ) 


the derivatives of the velocity and pressure profile are 
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v = — — | rjiio + (Ti + T 2 ) u\ + - — Qij a+ 

— —a ^ — A\T\ + Q\ + A 2 T 2 — Q2J + u\ ^ — AiSi + T\ — A2S2 + T 2 ^ 6 + 
—a (t-i + T 2 ) + uj ^Si — S ^ J yi| 
y- = — — —a ^ — S\ + + 2 uj (TiSi + T2S2) 


Tx “ p 

Let the elements of be denoted as q uo , q Ul , q p , etc., then 


Quo = u ~ -n 
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= ( s «+*) fi -|( T ' +r 0s 


? P = 1 


56 = — —a ^ “ ^ 1*^1 + ^ 2 *^ 2 ^ + 2ux ^A 1 T 1 5i + -^ 2 -^* 2 *5*2^ | u 

2 a ( ^ 1 ‘^ 1 J ^ 2 ^ 2 ^ 2 ) Ul ^ “ A\Si + Ti — ^ 2*^2 + ^2^ 

q yi = ^[^a(s 1 + 5 2 )+2 Wl (-r 1 5 1 + T 2 5 2 )]u- 

;ia(T 1+ T 2 ) + u, (*-*)]£ 

As in the single-jet case, it is necessary to enforce a flow tangency boundary condi- 
tion at the ejector wall. The condition is 

v(x,y = H) = u(x,y = H)?Z- (5.75) 


The need to enforce this boundary condition requires that one of the equations from 
the weighted residual method be removed from the system. A bit of experimentation 
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has shown that the conditioning of the system is best if the equation formed with 
q Uo as the weighting function is replaced with the flow tangency boundary condition. 
When the integrals are evaluated, the system of equations may be written as 
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(5.76) 


The first five equations are formed by weighting the residual with q ui , q p , q a , q b , 
and q yi respectively, while the last equation enforces the flow tangency boundary 
condition at the ejector wall. 


Chapter 6 

Viscous-Inviscid Matching 
Procedure 


6.1 Iteration Scheme 

The goal of the viscous-inviscid matching is to obtain viscous and inviscid solutions 
that are compatible at their common boundary. Compatibility is achieved when 
the pressure and velocity fields are continuous at the zonal interface. In order to 
arrive at compatibility, the viscous and inviscid solutions are allowed to influence 
each other in an iterative process where information is exchanged at the common 
boundary. This process simulates the physical viscous-inviscid interaction that is 
taking place within the ejector. The iterative process must be carefully designed 
such that it allows each flow region to influence the other, and yet remain both 
stable and computationally efficient even when the interaction is intense. 

In the ejector problem there are two areas where a matching must be done. The 
first is a matching of velocity and pressure fields along the jet boundary, while the 
second is a matching of the ejector exit pressure to the atmospheric value. Matching 
of the flow variables along the jet boundary involves finding the correct distribution 
of jet entrainment. Matching of the exit pressure is achieved when the value of 
the primary jet momentum flux is consistent with an assumed value of the ejector 
inlet pressure. These two matching processes are intertwined, since the value of 
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Figure 6.1: Viscous-Inviscid interaction scheme. 


the primary jet momentum affects the evolution of the jet, while the interaction 
between the jet and inviscid flow ultimately affects the ejector exit pressure. The 
overall iteration scheme is constructed in a nested fashion where an inner loop 
converges the flow variables at the jet boundary and an outer loop converges the 
exit pressure. 

In the viscous-inviscid loop, the inviscid solution provides both the external 
velocity, u o, and the pressure, p, to be used as boundary conditions in the viscous 
solution. Once the viscous flow is computed, the jet entrainment velocity is passed 
to the inviscid region, where it is used to update the suction applied to the panels 
covering the jet boundary. A new inviscid solution is then calculated, and the cycle 
repeats. Figure 6.1 illustrates the concept. Convergence is monitored by comparing 
the distribution of entrainment assumed in the inviscid solution with the actual 
entrainment computed by the viscous solution. 

In the exit pressure matching loop, an initial guess for the primary jet momentum 
is made. Next the viscous-inviscid matching is performed. The viscous solution is 
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then marched all the way to the ejector exit. The computed exit pressure does not 
in general agree with the atmospheric value. Accordingly, an adjustment is made 
to the primary jet momentum flux, and the cycle repeats. Figure 6.2 illustrates the 
concept. Convergence is achieved in the outer loop when the difference between the 
exit and atmospheric pressure is negligible. 

The matching procedures for both the single and dual jet ejectors are essentially 
the same. The dual jet case, however, is complicated by the additional interaction 
which takes place between the two jets. This interaction is manifested both by the 
effects of jet curvature and by the asymmetric entrainment with respect to the jet 
centerline. The matching procedures for the one and two jet ejector are described 
separately below. 


6.2 Matching Procedure for the Single-Jet Ejector 

6.2.1 Viscous-Inviscid Matching 

The ejector flow field is symmetric with respect to the channel centerline. To mini- 
mize effort, only the upper half of the of the flow field is solved. The viscous-inviscid 
matching is therefore contained to the upper half of the boundary between the jet 
and the inviscid stream. The geometry for the upper half-plane of the inviscid solu- 
tion was discussed in Section 4.4. The effect of the jet entrainment on the inviscid 
field is simulated by applying suction to the panels which cover the jet boundary, 
while the lowered pressure within the inlet is simulated by applying suction to the 
control station. The matching process determines the distribution of panel suction 
that makes the viscous and inviscid regions are compatible. The procedure is to 
iterate between the inviscid horizontal component of velocity and the viscous en- 
trainment. To start the process, an initial guess for the jet entrainment is made, 
and the panel suction velocities are set accordingly. The inlet suction applied at 
the control station is a parameter in the exit pressure matching and is assigned a 
fixed arbitrary value. The inviscid problem is solved, and the velocity components 
as well as the pressure along the jet boundary are calculated. The quantities ii 0 and 
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Figure 6.2: Exit pressure matching. 
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p are then formed and sent to the viscous region as forcing terms (see Eq. (5.37)). 
The viscous problem is solved, and the jet entrainment velocity computed via Eq. 
(5.41). At this point the velocity and pressure fields are compared at the viscous- 
inviscid interface. The horizontal component of velocity as well as the pressure 
are already continuous at the interface, since these quantities were extracted from 
the inviscid solution and transferred directly to the viscous solution through the 
boundary conditions. The vertical component of velocity, however, will in general 
not be continuous. Let v vis be the entrainment velocity computed by the viscous 
solution, v inv be the entrainment velocity computed by the inviscid solution, and V n 
the suction velocity applied to the panel where the entrainment is being calculated. 
Then the following relaxation scheme is used for each panel to produce a correction 
to its suction velocity 

V: +1 = V: + u(v vi ,-v inv ) (6.1) 


Once the correction is made for each of the panels, a new inviscid solution is gen- 
erated and the whole process repeated. 

The parameter u) in Eq. (6.1) is a relaxation factor that is needed to maintain 
stability. The iteration scheme is only stable if the relaxation factor is allowed 
to vary with x. The viscous calculation becomes more sensitive to changes in the 
external inviscid field as the distance from the jet origin is increased. For this reason 
it is necessary to increase the damping with the streamwise distance. The following 
linear variation in the relaxation factor is sufficient to control the stability 



Here xo is the position of the jet nozzle and x cs is the position of the control station, 
where the viscous-inviscid matching is terminated. While this scheme is under 
relaxed over most of the jet trajectory, it still converges quite rapidly. Typically 
four cycles are needed to match the entrainment velocity to within three significant 
figures. The scheme is also surprisingly robust. No stability problems have been 
encountered for a wide range of test conditions. 
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6.2.2 Exit Pressure Matching 


Once the viscous-inviscid matching is complete, the remainder of the viscous flow 
within the channel is computed by marching the system of equations given in Eq. 
(5.47). The pressure computed at the exit will in general differ from the atmospheric 
value. An improvement is made by adjusting the primary jet momentum flux. 

For a given geometry, the exit press me depends only on the primary jet mo- 
mentum flux and the magnitude of the suction applied to the control station. The 
primary jet momentum flux in turn is specified by an initial velocity, u lo , while the 
control station suction is specified by the the velocity u C3 . These are the only two 
relevant velocity scales in the problem. The exit pressure must therefore depend on 
the ratio UiJu C3 . Consequently, it is sufficient to vary either one of these quantities 
while holding the other fixed. It is most convenient to hold u C3 fixed and vary just 
the initial jet velocity u lo . 


Then the iteration scheme is 


where 


and where 


used to converge the exit pressure. 

First define 

/ n = w.ii - p',„j 

(6.4) 

r /" - 
- “V 

(6.5) 

1 = < - « r 

(6.6) 

«0 n = 1 

u = < 

1 1/r n > 1 

(6.7) 

u?o — 0.1 

(6.8) 


Notice that the Newton scheme needs data at two iteration levels. Provision is made 
for this by incorporating a simple one level scheme for the first step. This iteration 
scheme converges quite rapidly. Typically four cycles are necessary to converge the 
exit pressure to the atmospheric value within three significant figures. 

The entire iteration process is now complete. A summary of the method is 
shown schematically in Figure 6.3. 
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Figure 6.3: Iteration scheme for the single jet ejector. Note how the viscous-inviscid 
matching loop is nested within the exit pressure matching loop. 
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6.3 Matching Procedure for the Dual-Jet Ejector 

The matching procedure for the dual-jet ejector is conceptually the same as the 
single-jet case. The procedure is somewhat more complicated by the need to account 
for the jet curvature and unequal entrainment on either side of the jet. Accordingly, 
the viscous-inviscid matching procedure contains an additional loop for converging 
jet trajectories. The exit pressure matching loop is unchanged. 

6.3.1 Viscous-inviscid Matching 

Unlike the single-jet ejector, the jets in the dual-jet ejector are not issued along the 
channel symmetry plane. With no geometric symmetry imposed at their centerlines, 
the jets have the freedom do develop asymmetric characteristics. Both curvature of 
the jet centerline and unequal entrainment on the two sides of the jet are additional 
effects which the viscous-inviscid interaction scheme for the dual-jet ejector must 
account for. 

While the flow is not expected to be symmetric with respect to the individual 
jet centers, the overall flow is still symmetric with respect to the channel symmetry 
plane. As in the single-jet case, it is again sufficient to consider only the upper half 
of the ejector channel. The upper half-plane now contains one entire jet as opposed 
to the half jet encountered previously. Both the upper and lower surfaces of this jet 
must be treated separately, since in the absence of symmetry, the viscous-inviscid 
interaction taking place at the upper surface is different from the interaction taking 
place at the lower surface. Accordingly, the iteration scheme is extended accordingly 
to separately match the viscous and inviscid solutions at upper and lower interfaces. 

The procedure for matching both sides of the jet is patterned after the one- 
sided matching done in the single-jet case. The suction velocities for the panels 
covering both sides of the jet are initially set to reflect an initial guess for the jet 
entrainment. The suction velocities applied to both the lower and upper control 
stations are set to the same fixed value. The inviscid problem is then solved, and 
the velocity components as well as the pressure at both the upper and lower side of 
the jet boundary calculated. Next the quantities ti 0 , a, and p are determined. These 
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terms are then used as boundary conditions in the solution of the viscous region 
(see Eq. (5.68)). Once the viscous solution is complete, the entrainment velocity 
at both the upper and lower interfaces are calculated. Finally, corrections to the 
panel suction velocities on both the upper and lower sides of the jet are made with 
the same iteration scheme given in Eq. (6.1). The cycle is repeated until the flow 
variables are continuous at both the upper and lower viscous-inviscid interfaces. 

6.3.2 Exit Pressure Matching 

The exit pressure matching procedure for the dual-jet ejector is exactly the same 
as that used in the single-jet case. 

6.3.3 Determination of the Jet Trajectory 

A new procedure needs to be introduced to account for the jet curvature. As 
discussed in Section 5.7.1, the jets curve in response to the pressure difference 
acting across them. The actual path of the jets is not known a priori, but rather 
must be determined as part of the solution. This requires an additional iteration 
loop to be built around the exit pressure matching and viscous-inviscid matching 
loops. 

The viscous-inviscid interfaces are curved in proportion to the curvature of the 
jet centerline. The inviscid solution must account for this by distributing the panels 
which cover the jet boundary over an appropriately curved surface. The shape of 
this surface is not known ahead of time since it is dependent on the yet unknown 
distribution of pressure within the ejector inlet. The panels that form the viscous- 
inviscid interfaces must be free to move during the iteration process so that the jet 
trajectory remains compatible with the rest of the solution. The procedure used 
here is to initially guess the jet trajectory. The panels are laid out accordingly and 
both the viscous-inviscid and exit pressure matchings done. When the provisional 
solution is complete, the computed jet trajectory is compared with the initial guess. 
If the vertical distance between the two exceeds a specified tolerance at any point, 
the newly computed trajectory is used as the initial guess for the next iteration. 
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This process converges rapidly. It is a rare case where more than two cycles are 
needed to converge the jet trajectory. A summary of the overall iteration strategy 
for the dual-jet ejector is shown in Figure 6.4. 
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Figure 6.4: Iteration scheme for the dual-jet ejector. Note three levels of nesting. 































Chapter 7 
Results 


In this chapter the predictions of the viscous-inviscid ejector algorithm are carefully 
examined. In an effort to validate the computer code, the results predicted for the 
single-jet ejector are compared against experimental data. The computations are 
then extended to an investigation of the effect of ejector geometry on performance. 
This is done for both the single-jet and dual-jet ejectors by systematically vary- 
ing the primary nozzle position, ejector length, free stream speed, diffuser angle, 
and diffuser slope. The results of the parametric studies for the single-jet ejector 
are compared with experimental data for qualitative agreement. Finally, the com- 
puter code is used as a subroutine to an optimization package to demonstrate the 
suitability of the algorithm to practical design problems. 

In all cases the results are presented in non-dimensional form where the thrust 
augmentation ratio, defined as 

Total Ejector Thrust ^ 

^ _ Thrust of an Identical Nozzle Issued in Isolation 

is plotted against non-dimensional forms of the individual parameters. 


7.1 Comparison With Experiment 

The predictions of the viscous-inviscid algorithm are compared with a series of 
measurements taken by Bernal and Sarohia[47] at the Jet Propulsion Laboratories 
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Figure 7.1: Experimental configuration. L/2H = 3.25, Xj/2H = 1.0, d/2H = 0.5, 
*7oo = 0.0 


in 1982. Figure 7.1 shows a cross-section of the two-dimensional test configuration. 
The ejector shroud is composed of two thick flat plates with semi-circular leading 
edges. The plates are spaced so that the length to width ratio of the mixing chamber 
is 3.25. The primary nozzle is displaced one channel-width in front of the ejector. 
The jet exit Mach number is 0.3 in the experiment and no free stream is present. 

7.1.1 Surface Pressure 

Figure 7.2 shows a comparison between the measured and computed distribution 
of the ejector surface pressure. The results are presented in non-dimensional form 
where the surface pressure coefficient, defined as 

c — ~ ~ p°° 
p - To/2H 

is plotted against the normalized surface coordinate. The viscous-inviscid algorithm 
does a good job at capturing the suction peak resulting from the acceleration of the 
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Figure 7.3: Comparison of the jet velocity profiles 

secondary fluid as it flows around the shroud leading edge. The computed results 
also accurately predict the pressure recovery that results from the dissipation of 
momentum within the mixing region of the ejector channel. The fact that the 
conversion of the primary jet momentum to pressure is accurately predicted suggests 
that the simple algebraic turbulence model is doing an adequate job of simulating 
the turbulent shearing stresses. 


7.1.2 Velocity Profile Evolution 

Shown in Figure 7.3 is a comparison of the computed and measured velocity profiles 
within the ejector channel. The viscous-inviscid algorithm accurately predicts the 
jet spreading as well as the decay of the maximum velocity. The correct prediction 
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THRUST AUGMENTATION RATIO 

EXPERIMENT 

(p = 1.2 

COMPUTATION 

4> = 1.26 


Table 7.1: Thrust augmentation ratio comparison 

of the jet growth provides additional justification for the use the algebraic turbu- 
lence model. Agreement in the shape of the velocity profiles demonstrates that the 
gaussian exponential velocity profile shape chosen for the viscous calculation is a 
good choice for representing the physics of the single-jet ejector flow. 


7.1.3 Thrust Augmentation Ratio 

The computed value of the thrust augmentation ratio is compared with the 
experimental value in Table 7.1. The good agreement demonstrates that the viscous- 
inviscid algorithm accurately models the overall ejector mixing process. The fact 
that the computed result is 5 percent higher than the experimental result could be 
attributed to the lack of account for skin friction in the computation. 

Now with the results of the computation validated against experimental data, a 
series of parametric and optimizations are performed. 


7.2 Parametric Studies 

The effects of varying several geometrical parameters is investigated by perturbing 
the configuration that was used for the comparison with experiment. Unfortunately 
the experimental tests at JPL did not include any such geometrical parametric varia- 
tions. Other experimentalists[l] have published data showing the effects of variation 
in one or two geometrical parameters. Outside of these limited results, there does 
not seem to exist a cohesive set of experimental data where a single configuration 
is subjected to systematic variations in several different geometric parameters. For 
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this reason it is difficult to make a direct comparison of the computed results with 
experimental data when a large number of parameters are systematically varied. It 
is possible, however, to make a qualitative comparison with the available experi- 
mental data. The experimental data must be drawn from several independent tests 
that involve different basic geometrical configurations. No attempt is made to tai- 
lor the computational geometry to match each of these individual tests, but rather 
the basic computational geometry is held fixed and comparisons are made to show 
similar trends as opposed to exact agreement. Experimental data is more abundant 
for single-jet configurations and thus comparisons are made for this case only. 

7.2.1 Parameters Varied 

Figure 7.4 shows the geometrical parameters that are varied for both the single-jet 
and dual-jet ejectors. In non-dimensional form the parameters are: longitudinal 
nozzle placement, Xj/2 H, ejector length, L/2H, free stream speed, 7 2 = pU^H/T 0 , 
diffuser length, L d/L, and diffuser angle 0. The lateral nozzle placement, yj/H 
and the nozzle tilt, a are additional parameters for the dual-jet ejector. Each of 
these parameters is varied independently while all others are held fixed at their 
nominal values, Xj/2 H = 0, L/2H = 3.25, 7 = 0, Lp/L = 0, and 0 = 0 for the 
single-jet ejector, and xj/2H = 0.44, yj/H = 0.5, a = 0, L/2H = 3.25, 7 = 0, 
Ld/ L = 0, and 0 = 0 for the dual-jet configuration. For the single-jet case, the 
basic configuration is the same as the JPL test with the exception that the nozzle 
is located at the entrance plane of the ejector as opposed to one channel width in 
front. The nominal dual-jet configuration is the same as the single-jet one with the 
primary jet divided in two symmetrically placed jets of half the single jet intensity. 

7.2.2 Ejector Length 

Figure 7.5 shows the variation in the thrust augmentation ratio with ejector length 
for the single-jet and dual-jet configurations. The computations show that the 
ejector performance increases monotonically with the ejector length. This result 
can be explained as follows. As the ejector becomes longer, the high energy jet fluid 
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DUAL-JET 


Figure 7.4: Variation of ejector geometrical parameters 
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Figure 7.5: Effects of the ejector length. (A) Computed results for single-jet: 
x : /2H = 0, 7 = 0 , L d /L = 0 , p = 0, dual-jet: = 0 . 44 , = 0.5, 

a = 7 == 0, LdI L = 0, /? = 0. (B) Qualitative comparison with experiment for a 

single-jet configuration (taken from Ref. [ 1 ]). 
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has more opportunity to mix with the ambient fluid. The enhanced mixing requires 
an increase in the amount of entrained secondary flow and hence an increase in 
performance. 

The experimental results shown in part (B) of Figure 7.5 are for a single-jet 
configuration. The experimental data shows a similar trend with the exception 
that the thrust augmentation ratio does not increase monotonically with the ejector 
length. The experimental data show an increase in performance up to a maximum 
value at roughly L/2H ~ 7, after which the performance continually degrades. The 
differences between the computed and experimental results arises from the neglect 
of skin friction in the computation. In the experiment, the increment in drag due to 
skin friction starts to overcome the increment in performance due to increasing the 
ejector length at L/2H ~ 7. Without account for the viscous drag, the computed 
results are unable to show the optimal ejector length. 

A very simple analysis can be made to better understand the differences in 
performance of the single and dual-jet ejectors. The premise of this analysis is 
that the dual-jet ejector has a greater effective length than does the single jet 
configuration. The basic idea is shown in Figure 7.6. By virtue of symmetry at the 
ejector channel centerline, each jet in the dual-jet configuration acts as a separate 
ejector. The length to width ratio of the two effective ejectors, however, is not 
the same as the original L/2H. The overall ejector length L is the same, but the 
effective channel width is reduced. If the nozzle is located midway between the 
ejector centerline and the ejector wall, then the effective channel width is H/2. In 
general, the effective channel width depends on the lateral position of the primary 
nozzle. For an arbitrary lateral nozzle position, the following hypothesis for the 
effective channel width is used 


Heff = 


(Tt)B \>\ 


The effective ejector length to width ratio is then 



(7.3) 


(7.4) 
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Figure 7.6: Effective ejector length for the dual-jet configuration 


The thrust augmentation of the dual-jet ejector may then be related to the thrust 
augmentation ratio of an effective single-jet ejector as follows 


^dual- 


jet 


2 H 


Yj \ | ( 2 7f < 2 

H I 4> single- jet ( y£ (&)) % > \ 


For the symmetrical placement Yj/H = 0.5, the above relation becomes 


4>dual-jet ~ $ single— jet ^2 


(7.5) 


(7.6) 


Thus the performance of a dual-jet ejector with the nozzles symmetrically placed 
is predicted to perform the same as a single-jet ejector of twice the length. The 
validity of this estimate is demonstrated in Figure 7.7 where the results of the 
single-jet computation are used to provide an estimate of the dual-jet performance. 
The estimate agrees well with the actual dual-jet computation over the entire range 
of ejector lengths. An estimate for the variation in performance with the lateral 
position of the nozzles in the dual-jet ejector can also be made. Figure 7.8 shows a 
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Figure 7.7: Comparison of the computed results for the dual-jet ejector with an 
estimate based on the effective single-jet ejector concept 




7.2. PARAMETRIC STUDIES 


97 


plot of Eq. (7.5) where the results for the single-jet computation have been used. 
The analysis shows that the optimal location for the nozzles is midway between the 
ejector channel centerline and the channel wall. 


7.2.3 Longitudinal Nozzle Position 

Shown in Figure 7.9 is the effect of the longitudinal nozzle placement for both the 
single-jet and dual-jet ejectors. The computed results for the single-jet ejector show 
that the performance is maximized when the nozzle is located at the ejector inlet 
plane. This fact may be explained as follows. When the nozzle is located ahead 
of the ejector, much of the entrainment takes place ahead of the ejector as well. 
The jet is already partially mixed as in enters the ejector shroud and as a result 
has less available kinetic energy to be used to entrain additional ambient fluid. 
The momentum flux of the secondary fluid entering the ejector is consequently 
reduced and the performance is degraded. As the nozzle is moved away from the 
entrance plane into the channel, the length over which the turbulent mixing can 
take place is reduced. A reduction in mixing again implies a reduction in the 
entrainment of ambient fluid and a corresponding drop in performance. According 
to this argument, the optimal nozzle location should be at the ejector entrance plane 
since at this location the jet has the greatest available kinetic energy as well as the 
longest distance within the channel for the mixing to take place. 

In part (B) of Figure 7.9, a qualitative comparison with experimental data for 
a single-jet ejector is made. The experimental results show the same trend where 
the performance is maximized near the ejector entrance plane. The experiment 
shows a more rapid decrease in performance as the nozzle is moved in front of the 
ejector. This discrepancy is probably due to differences in the basic geometry of 
the experimental and computational configurations. 

The computed results for the dual-jet ejector are similar to the single jet case 
with the exception that the maximum performance is obtained when the jets are 
located slightly inside the ejector channel. The fact that the optimal position is 
not at the entrance plane for the dual-jet ejector is related to the curvature of the 
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Figure 7.9: Effects of the longitudinal nozzle position. (A) Computed results for 
single-jet: L/2H = 3.25, 7 = 0, L D /L = 0, = 0, dual-jet: L/2H = 3.25, 

Vj/H = 0.5, a = 0, 7 = 0, Lp/L = 0, /? = 0. (B) Qualitative comparison with 
experiment for the single-jet case (taken from Ref. [1]). 
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jet centerlines. Due to the non-uniform pressure in the inviscid field at the ejector 
inlet, the jets are induced to follow curved trajectories. The relative position of the 
jet centers are therefore displaced from their optimal position midway between the 
ejector centerline and the ejector wall. As the nozzles are moved further inside the 
channel, they are located in a region of increasing uniformity in the pressure field. 
Consequently the displacement of the jet centerlines diminishes and the performance 
is increased. The optimal position for the nozzles is the point where the rate of 
increase in performance due to a less deflected jet trajectory is equal to the rate of 
decrease in performance due to a decrease in the overall length over which the flow 
has to mix. 

7.2.4 Lateral Nozzle Position for the Dual-Jet Ejector 

Figure 7.10 shows how the lateral nozzle position affects the performance for the 
dual-jet ejector. The results show that the performance is maximized when the 
jets are located midway between the ejector walls and the channel centerline. The 
performance drops off a bit faster when the jets are moved towards the ejector 
channel walls than when they are moved towards the channel centerline. 

A comparison of the the computed results with the estimate provided by the 
effective ejector length concept is shown in part (B) of figure 7.10. The qualitative 
agreement shows that moving the nozzle from its optimal location at the midpoint 
between the channel centerline and the channel wall results in a shortening of the 
effective ejector length. 

7.2.5 Nozzle Tilt for the Dual- Jet Ejector 

Shown in Figure 7.11 is the variation in performance of the dual-jet ejector with 
the primary nozzle tilt. The computation shows that, for the chosen position of the 
primary nozzle, the performance is maximized for a nozzle tilt of zero degrees. The 
nozzle tilt affects the performance in much the same way as does the nozzle lateral 
nozzle position since tilting the nozzle forces the jet centers to leave their optimal 
point midway between the ejector channel centerline and the ejector wall. 
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Figure 7.10: Effects of the lateral nozzle position for the dual-jet ejector. (A) 
Computation for Xj /2 H = 0.44, a = 0, L/2H = 3.25, 7 = 0, L D jL = 0, /? = 0. (B) 
Comparison with the estimate based on the effective ejector concept. 





7.2. PARAMETRIC STUDIES 


101 


102 


CHAPTER L RESULTS 


7.2.6 Free Stream Speed 


Figure 7.12 shows the computed variation in the thrust augmentation ratio with 
the free stream speed for the single-jet and dual-jet ejectors. The parameter 7 is a 
non-dimensional measure of the free stream speed. Its square is proportional to the 
force created by the dynamic pressure of the free stream acting over the channel 
width, divided by the primary jet thrust. 


7 


2 


To 


(7.7) 


The computed results show a steady decrease in performance with increasing free 
stream intensity. The results for the single-jet and dual-jet ejectors show a similar 
trend, with the dual-jet ejector out-performing the single-jet ejector throughout the 
entire range of 7. The reason for the decrease in performance with increasing free 
stream speed is due to an increase in the ram drag. The experimental data for a 
single-jet configuration shown in part (B) of Figure 7.12 illustrates a similar trend. 
The results of the control volume analysis, shown in part (C) of Figure 7.12 again 
agree qualitatively with the results of the viscous-inviscid calculation. In comparing 
the viscous-inviscid results with the control volume analysis, it is evident that the 
dual-jet ejector achieves a higher degree of mixing (smaller exit velocity skewness 
factor, A 2 ) than does the single-jet ejector. The higher degree of mixing enables the 
dual-jet ejector to maintain its advantage over the single-jet configuration as the 
free stream intensity is increased. 


7.2.7 Diffuser Length 

The computed variation in thrust augmentation ratio with diffuser length for a 
constant diffuser angle of 20° is shown in Figure 7.13. The computation shows that 
the thrust augmentation ratio is a non-monotonic function of the diffuser length 
when the diffuser angle is held fixed. For the single-jet case, the performance is 
maximized at about Lp/L = 0.3. The computation for the dual-jet ejector shows 
increasing performance over the entire range of diffuser lengths investigated. The 
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Figure 7.12: Effects of the free stream speed. (A) Computed results for single jet: 
Xj/2H = 0, L/2H = 3.25, L D /L = 0, 0 = 0, dual-jet: Xj/2H = 0.44, yj/H = 0.5 
a = 0, L/2H = 3.25, L D /L = 0, 0 = 0. (B) Qualitative comparison with experi- 
ment for a single-jet configuration (taken from Ref. [1]). (C) Comparison with the 
control volume analysis. 





Figure 7.13: Effects of the diffuser length. Computed results for single-jet: 

Xj/2 H = 0, L/2H = 3.25, 7 = 0, /? = 20°, dual-jet: Xj /2 H = 0.44, Vj /H = 0.5, 
a = 0, L/2H = 3.25, 7 = 0, /? = 20° 
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dual-jet performance should go through a maximum, however, but apparently at a 
value of Ld/L greater than 0.45. 

A physical explanation of the effect of a diffuser is easier to understand if the 
results of Figure 7.13 are replotted as the thrust augmentation ratio versus the 
diffuser area ratio. Such a plot is shown in Figure 7.14. The results look much the 
same in this plot since the diffuser area ratio is directly proportional to the diffuser 
length if the diffuser angle is held fixed. 

Recall that the ejector exit pressure must equal the atmospheric value. Then, if 
the turbulent mixing within the diffuser is neglected, the diffuser area ratio alone 
sets the pressure at the entrance of the diffuser to a value less than atmospheric. 
The lowered pressure within the ejector induces additional secondary flow to enter 
the device and hence an increase in performance. At the same time, however, the 
lowered pressure acting over the sloped diffuser walls creates a drag force. The 
drag force increases faster than does the increment in performance due to the the 
enhanced secondary flow. As the diffuser area ratio is increased, the pressure drag 
soon dominates and the thrust augmentation ratio falls from its maximum value. 

The boundary layers within the diffuser are neglected in the viscous-inviscid al- 
gorithm and thus it is not possible to detect the decrease in performance associated 
with boundary layer separation from the diffuser walls when high area ratios are 
used. Thus the computed decrease in performance following the maximum value 
of thrust augmentation is due to increasing pressure drag and not diffuser stall. In 
interpreting the experimental data for the single-jet configuration shown for com- 
parison in part (B) of Figure 7.14, it is difficult to determine whether the decrease 
in performance after the maximum value is due to boundary layer separation or 
from increasing pressure drag. 

Part (C) of Figure 7.14 shows the corresponding result of the control volume 
analysis for comparison with the viscous-inviscid computation. The trends are seen 
to be quite similar. 

In comparing the control volume results with the viscous-inviscid computation, 
it is again evident that the dual-jet ejector achieves a higher degree of mixing (lower 
exit velocity skewness, A 2 ) than does the single-jet ejector. Because of its ability 
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Figure 7.14: Effects of the diffuser area ratio (a replotting of Figure 7.13). (A) 
computed results for single jet: xj/2 H = 0, L/2H = 3.25, 7 = 0 ,/? = 20°, dual jet: 
Xj/2 H = 0.44, yJH = 0.5, a = 0, L/2H = 3.25, 7 = 0, j3 = 20°. (B) Qualitative 
comparison with experiment for a single-jet configuration (taken from Ref. [1]). (C) 
Comparison with the control volume analysis. 
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to more efficiently mix the primary and secondary streams, the dual-jet ejector 
is predicted to perform significantly better than the single-jet counterpart when a 
diffuser is used. The advantage of the dual-jet ejector is most evident for greater 
diffuser area ratios. 


7.2.8 Diffuser Angle 

The variation in thrust augmentation ratio with diffuser angle for constant diffuser 
length is shown in Figure 7.15. The computed results look much the same as those 
for varying the diffuser length while holding the angle fixed (c.f. Figure 7.13). The 
similarity between the two sets of results suggests that the thrust augmentation 
ratio is predominantly a function of the diffuser area ratio and not the details of the 
diffuser shape. This hypothesis is tested by performing a computation where the 
diffuser length and diffuser angle are varied simultaneously in such a way that the 
diffuser area ratio remains fixed. The results of this computation are show in Figure 
7.16. The flatness of the computed results indicates that the overall performance 
is nearly independent of the details of the diffuser shape. The code predicts only 
a slight advantage in using a short diffuser with a large angle. The fact that the 
thrust augmentation ratio is essentially independent of the diffuser shape indicates 
that there is a negligible amount of turbulent mixing taking place in the diffuser. 


7.3 Optimization Studies 

In an effort to demonstrate the usefulness of the viscous-inviscid algorithm for prac- 
tical design problems, a few example optimization studies have been performed. In 
these studies, the viscous-inviscid computer code is used as a subroutine in an op- 
timization package. Due to the efficient nature of the viscous-inviscid algorithm, 
configurations are optimized in manageable amounts of time on a VAX 11/780 
machine. 



Figure 7.15: Effects of the diffuser angle for constant diffuser length. Computed 
results for single-jet: xj/2 H = 0, L/2H = 3.25, 7 = 0, L D /L = 0.31, dual-jet: 
Xj/2 H = 0.44, y 3 /H = 0.5, a = 0, L/2H = 3.25, 7 = 0, L D /L = 0.31. 
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Figure 7.16: Effects of the diffuser length for constant diffuser area ratio. Com- 
putation for single-jet: Xj/2H = 0, L/2H = 3.25, 7 = 0, W/H = 1.73, dual-jet: 
Xj/2 H = 0.33, t fj/H = 0.5, a = 0, L/2H = 3.25, 7 = 0, W / H = 1-73. 
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Figure 7.17: Configuration for the ejector inlet optimization. Xj, x L , 0 , t/*,, and the 
dynamic viscosity, p are variable. Fixed parameters are: L/2H = 3.25, d/2H = 0.5. 

7.3.1 Single- Jet Ejector Optimization 

The computer code for the single-jet ejector is used to optimize a thrust augmentor 
inlet for several different flight conditions. The basic configuration is again the 
geometry used in the JPL test. Figure 7.17 shows the variable-geometry inlet to 
be used in the optimization study. The primary jet is free to move fore and aft 
of the ejector entrance plane. A variable-length section of the inlet is also free to 
rotate towards and away from the ejector centerline. In non-dimensional form the 
design variables are: nozzle position - Xj/2 H, inlet lip length - x L /2H, inlet lip 
rotation angle - 0 , free stream speed - 7 2 = pU^H/To, and Reynolds number - 
R e = \J2H pT 0 / p. The Reynolds number becomes an important parameter in the 
optimization study because a boundary layer calculation is included for the inlet 
portion of the ejector. Inlet geometries that result in boundary layer separation are 
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rejected in the optimization process. 

A quasi-Newton optimization package[65] is coupled with the viscous-inviscid 
code to systematically search through the design parameters. Constraints imposed 
by geometrical restrictions as well as boundary layer separation are incorporated 
into the optimization scheme through the use of algebraic penalty functions. The 
penalty functions artificially lower the performance once a constraint is violated. 

The free stream speed parameter, 7 and the Reynolds number R e are chosen to 
define the flight condition. The optimization package then repeatedly evaluates the 
viscous-inviscid code to determine the optimal values of the remaining parameters. 
A concise statement of the optimization problem is 

MAXIMIZE <t> = 4> (^, ||, <?) (7.8) 

subject to the geometrical and boundary layer separation constraints. 

Penalty Function Transformation 

In its present form, the problem here is one of constrained optimization. Prob- 
lems of constrained optimization are much more difficult to treat than are those of 
unconstrained optimization. Accordingly, a penalty function transformation[ 66 ] is 
used to transform the constrained optimization problem into one of unconstrained 
optimization. The idea behind the penalty functions is simple. The constraints 
are completely ignored until one of them is violated. When a constraint is vi- 
olated, the performance is artificially lowered in an effort to redirect the search 
away from the forbidden region. The penalty functions thus simulate the effects of 
the constraints while allowing the problem to be treated under an unconstrained 
optimization framework. 

With the use of penalty functions, the objective is to maximize the following 

N 

MAXIMIZE g = <t>-'Ectf (7.9) 

1=1 

where the c, are weighting factors and the are the penalty functions. The penalty 
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functions themselves are composed of Heavyside functions. For example, a con- 
straint of 9 < 9 0 is modeled as 


6 = (6- d 0 )H{9 - 9 0 ) ( 7 . 10 ) 

where 7"f is the Heavyside function. Note that the penalty is zero until 9 = 9q. 

The weighting coefficients c, are a measure of the relative importance of enforcing 
each constraint. Low values of imply little attention paid to the constraints, 
while larger values increase their importance. The magnitude of the weights have 
a profound effect on the convergence of the optimization process. In general the 
convergence degrades with increasing values of the weights. The best strategy for 
obtaining convergence is to let the weights vary during the optimization process 
such that their magnitude is steadily increased as the optimal point is neared. 

Optimal Solutions 

Optimal configurations are determined for a wide range of Reynolds number for 
three values of the dimensionless free stream velocity, 7 . Figure 7.18 shows the 
variation in the performance of a thrust augmentor with an optimized inlet as a 
function of both Reynolds number and free stream speed. The results indicate that 
the performance is an increasing function of Reynolds number, with strongest de- 
pendence in the low Reynolds number range. The rapid increase in performance at 
low Reynolds numbers is associated with transition from a laminar to a turbulent 
boundary layer. A laminar boundary layer can not withstand the severe adverse 
pressure gradient which is present in the inlet region. In an effort to avoid inlet 
stall, the optimization routine seeks a configuration that reduces the pressure rise 
in the inlet region by decreasing the degree of turbulent mixing within the shroud. 
In so doing, the performance is decreased since the mechanism of thrust augmen- 
tation relies on mixing of the high momentum jet with the ambient fluid. As the 
Reynolds number is increased to a value sufficient to induce transition to a turbu- 
lent boundary layer, the performance is greatly enhanced due to the fact that the 
turbulent boundary layer is able to negotiate the intensified pressure rise associated 
with increased mixing within the shroud. 
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Figure 7.18: Performance of the thrust augmentor with an optimized inlet 
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When a non-zero free stream speed is included, the presence of a strong favorable 
pressure gradient following the stagnation point at the shroud nose helps to energize 
the boundary layer, thus making it more resilient to separation as the pressure rise 
in the inlet region is encountered. In contrast, for the case of static operation, the 
boundary layer begins at the tail end of the shroud, and due to its lengthy evolution 
and less favorable pressure gradient, becomes thick and sluggish by the time it has 
traveled the distance necessary to be swept into the inlet. The resulting thick, 
weak boundary layer experiences separation at a smaller pressure rise compared to 
the more favorably energized boundary layer. For this reason, increased levels of 
performance are noted in the laminar regime when a free stream velocity is present. 

In the high Reynolds number regime, performance decreases with increasing free 
stream speed. This is due to an increase in the ram drag. 

A few representative optimal shapes corresponding to the performance curves in 
Figure 7.18 are shown in Figures 7.19 and 7.20. The results show that the optimal 
design shapes are a much stronger function of Reynolds number than free stream 
speed. At low Reynolds number, Figure 7.19 shows that the optimal nozzle position 
is located up to one channel width aher d of the shroud, while the inlet is slightly 
expanded. This combination serves to n.’nimize the adverse pressure gradient in 
the inlet region as required by the laminar boundary layer which develops there. In 
Figure 7.20 as the Reynolds number is increased and the boundary layers undergo 
transition, the nozzle moves approximately to the entrance plane of the shroud. The 
inlet lips rotate through the horizontal and then towards the jet as the Reynolds 
number is increased. The length of the inlet lip wh : ch is rotated is seen to increase 
with Reynolds number. 

More detail on the behavior of the various design parameters as the Reynolds 
number and dimensionless free stream speed are varied is shown in the following 
sequence of plots. Figure 7.21 illustrates the optimal lip rotation angle as a function 
of Reynolds number for three values of the dimensionless free stream speed. It can be 
seen that the optimal lip rotation angles follow a similar trend for all three values 
of dimensionless free stream velocity. As the Reynolds number is increased, and 
laminar boundary layers undergo transition to turbulence, the lips rotate quickly 



R t = 6.8 x 10 4 
7 = 0.0 
<f> = 1.25 


Rt = 1.0 x lO' 3 
7 = 0.5 
4> = 1.27 




Figure 7.19: Optimal configurations at low and moderate Reynolds numbers 
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Figure 7.22: Optimal primary nozzle position as a function of Reynolds number 


from large positive angles to a position of roughly zero angle. Further increase in 
the Reynolds number causes a continual gradual decline in the lip rotation angle. 
Differences in the optimal lip rotation angle due the free stream speed become 
increasingly small in the high Reynolds number regime. 

Displayed in Figure 7.22 is the optimal primary nozzle location as a function of 
Reynolds number for the three values of the dimensionless free stream speed. The 
trends are qualitatively similar for each of the three values. In the low Reynolds 
number limit, the nozzle is located well in front of the shroud due to the fragile 
nature of the laminar boundary layers. As the Reynolds number is increased and 
the boundary layers become turbulent, the optimal nozzle position moves quickly 
to a limiting point just inside the shroud. In light of the forward stagnation point 
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Figure 7.23: Optimal inlet lip length as a function of Reynolds number 


induced by the free stream and its positive effect on the boundary layer develop- 
ment, the optimal nozzle location moves forward more quickly when a free stream 
is present as compared to static operation. 

Figure 7.23 illustrates the optimal length of the inlet lip plotted as a function 
of Reynolds number for different values of the dimensionless free stream velocity. 
The general trend of a short lip at low Reynolds number, maximum lip length at 
moderate Reynolds number and a decline in lip length with very large Reynolds 
number is seen to hold for all three values of the dimensionless free stream velocity. 
Again due to the presence of a forward stagnation point, there is a shift in Reynolds 
number when the results for static operation are compared with those for a non- 
zero free stream. The rapid change in the lip length when moving out of the low 
Reynolds number regime is due to boundary layer transition. 






Figure 7.24: Dual-jet ejector optimization. 

7.3.2 Dual-jet Ejector Optimization 

The dual-jet ejector code has been used to optimize the nozzle location and tilt 
for the same configuration used in the parametric studies. Figure 7.24 shows the 
basic configuration. The optimization is performed in the following way. With the 
nozzle tilt fixed, the performance is computed for several different nozzle positions 
within the solid rectangular box shown in Figure 7.24. The resulting data is used 
to construct contour plots that show lines of constant thrust augmentation. The 
optimal nozzle position is then found simply through inspection of the contour 
maps. The results of the optimization study are shown in Figures 7.25-7.28. 
Three contour plots are shown in each of the figures, corresponding to nozzle tilts 
of —5°, 0°, and 5°. In order to give a sense of scale, the portion of the ejector shroud 
contained within the dashed box in Figure 7.24 is included with the results. 

Figure 7.25 shows the results for the basic ejector configuration. The most 






Figure 7.25: Lines of constant thrust augmentation for the unperturbed ejector. 
L/2H = 3.25, 7 = 0, /? = 0. 
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Figure 7.27: Lines of constant thrust augmentation for a moderate free stream 
speed. L/2H = 3.25, 7 = 0.5, & = 0. 
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obvious feature of these results is that the performance is much more sensitive to 
the lateral position of the nozzles than it is to the longitudinal position. The results 
also indicate that the optimal lateral position of the nozzles is a function of both 
the longitudinal position and the nozzle tilt. For each of the three tilt angles, 
the optimal nozzle position has a different location. As the nozzles are rotated 
towards each other, the optimal nozzle location moves out towards the ejector inlet 
and up towards the channel wall. There is little variation in the maximum thrust 
augmentation ratio achieved in these three cases. 

Figure 7.26 shows a similar set of results for a shorter ejector (L/2H = 2.25). 
The largest difference between these results and those for a longer ejector is that 
the performance has become more equally sensitive to the lateral and longitudinal 
nozzle positions. This is primarily due to the fact that the length over which the 
flow has to mix has a stronger impact on performance when the latter is small (c.f. 
Figure 7.5). The absolute values of the thrust augmentation have also dropped in 
response to shortening the ejector. 

Displayed in Figure 7.27 are performance contours for the basic ejector when a 
free stream is present. With the exception of an overall drop in performance, the 
results differ little from the static case shown in Figure 7.25. 

Figure 7.28 shows lines of constant thrust augmentation for an ejector with a 
diffuser. The results show that the presence of the diffuser enhances the sensitivity 
of the nozzle location. This is primarily due to the fact that the effectiveness of the 
diffuser is a strong function of the degree of mixing achieved prior to the diffuser (c.f. 
Figure 2.3). Figure 7.29 shows a qualitative comparison of the computed results with 
experimental data[67] for the effect of nozzle position on the performance of a dual 
jet ejector. The experiment shows the same trend of the lateral position of the nozzle 
having a greater impact on performance than does the longitudinal position. The 
relative position of the optimal location is also similar. The absolute values of the 
thrust augmentation found in the experiment are higher than the computed values 
because a high area ratio diffuser was attached to the experimental configuration. 



Figure 7.29: Qualitative comparison with experiment for the Dual-jet ejector noz- 
zle position. Computation: L/2H = 3.25, 7 = 0, a = 0 , 0 = 0 . Experiment: 
L/2H = 2.25, 7 = 0, a = -30°, 0 = 45°. 


Chapter 8 

Conclusions and 
Recommendations 


8.1 Summary 

A viscous-inviscid methodology has been developed as an accurate and efficient 
means of evaluating the performance of thrust augmenting ejectors. The inviscid 
portion of the flow field is modeled with a higher order panel method, while an 
integral method is used to solve for the viscous jet flow. The two solutions are 
iteratively matched together in a process that allows each region to influence the 
other en route to a converged solution. 

Two separate algorithms are developed; one is capable of treating ejectors with 
a single primary jet while the other is designed to treat configurations that use two 
primary jets. The results of the single-jet model compare well with experimental 
data. Lack of detailed experimental data for a dual-jet configuration prohibits a 
critical comparison to be made for this case. 

Both the single and dual-jet algorithms are used in a parametric study where 
the influence of nozzle placement, ejector length, free stream speed, and a diffuser 
are investigated. The results of this study are in good qualitative agreement with 
the available experimental data. 

The efficiency of the algorithms are demonstrated through two optimization 
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problems. For the single-jet ejector, the nozzle position and the inlet shape are 
optimized for various flight speeds and Reynolds numbers. The dual-jet ejector 
algorithm is used to optimize the lateral and longitudinal nozzle position for different 
nozzle tilt angles. 


8.2 Conclusions of the Numerical Method 

Viscous-inviscid algorithms have been successfully developed to model single-jet 
and dual-jet ejector flow fields. The main conclusions that have been arrived at in 
connection with the use of this numerical technique are as follows: 

1. The viscous-inviscid technique yields accurate solutions. Predictions of the 
model agree well with experimental data. 

2. The viscous-inviscid technique is efficient. The computing time required for 
a solution is roughly 1.5 and 3 minutes of CPU time for the single-jet and 
dual-jet algorithms respectively on a VAX 11/780 machine. 

3. The viscous-inviscid technique is robust in its ability to model arbitrary sym- 
metric ejector configurations. This fact is demonstrated in the parametric 
studies. 

4. The viscous-inviscid technique is well suited as for thrust augmentor optimiza- 
tion work. 

8.3 Conclusions of the Parametric Studies 

The parametric studies predict how the thrust augmentor performance is affected 
by the details of the ejector shape. The main conclusions of the parametric studies 
are as follows: 


1. In all cases the dual-jet ejector performs better than the single-jet counterpart. 
The dual-jet ejector improvement is substantial; thrust augmentation ratio 




8.4. CONCLUSIONS OF THE OPTIMIZATION STUDIES 


129 


increases of 20% to 50% can be realized by replacing a single primary jet with 
two primary nozzles. 

2. The performance is maximized when the primary nozzle is located at the 
entrance plane of the ejector for the single-jet configuration. For the dual-jet 
ejector the performance is maximized when the jet nozzles are placed slightly 
inside of the ejector. 

3. For the dual-jet ejector, the performance is maximized when the jet trajecto- 
ries are such that the jet centerlines remain equi-spaced between the ejector 
symmetry plane and the ejector wall. 

4. The thrust augmentation ratio increases with increasing ejector length. For 
short ejectors, the performance of the dual-jet ejector increases more rapidly 
with length than does the single-jet configuration. 

5. Thrust augmentor performance degrades rapidly with increasing free stream 
speed. 

6. The inclusion of a diffuser improves the ejector performance. The dual-jet 
ejector benefits more greatly from a diffuser than does the single-jet configu- 
ration. 

7. In the absence of separation, the details of the shape of the diffuser are rela- 
tively unimportant. The thrust augmentation ratio is primarily a function of 
the diffuser area ratio alone. 


8.4 Conclusions of the Optimization Studies 

Optimization studies were performed to demonstrate the efficiency of the viscous- 
inviscid algorithms. The main conclusions of these studies are: 

1. Boundary layer separation is a controlling factor in the design of an ejector 
inlet. 
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2. An ejector needs a variable-geometry inlet to maintain optimal performance 
in all flight regimes. 

3. Both the optimal longitudinal and lateral position of the primary nozzles in 
a dual-jet ejector are a function of the nozzle tilt angle. 

4. As the nozzles are tilted towards each other, the optimal nozzle position moves 
towards the ejector wall and out towards the ejector inlet. 

8.5 Recommendations 

The work presented here should be considered as the first step in creating a general, 
efficient procedure for modeling the ejector mixing problem. There are several 
extensions of this work that are necessary to achieve the ultimate goal. These are: 

1. Extend the analysis to account for the effects of compressibility. To do this, 
both a temperature profile and a thermal energy equation will need to be 
included in the integral formulation for the viscous region. For the inviscid 
region, a compressibility correction to the panel method (such as the Prandtl- 
Glauert correction) could be used if the secondary flow is purely subsonic. If 
a supersonic secondary flow is to be modeled, a finite difference solution to 
either the full potential equation or the Euler equations will be necessary. 

2. Remove the point source of momentum approximation for the primary jet 
and replace it with a more realistic finite-width model. This step will allow 
the effect of the nozzle width to be determined and should make the overall 
results more accurate by taking into account the jet potential core region. 

3. Investigate the use of more sophisticated turbulence models. The algebraic 
eddy-viscosity expression used here appears to be adequate, but is limited in 
its rough approximation of the turbulent transport process. Other approaches, 
such as the k — e model, are based on a more realistic picture of turbulence. 
Use of a model of this type should improve the reliability of the results. 
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4. Extend the analysis to three or more primary jets. When this step is under- 
taken, it should be done in conjunction with a finite- width jet nozzle model. It 
is necessary to use a finite nozzle model to properly account for the secondary 
flow blockage that results from placing additional nozzles within the ejector 
inlet. 

5. Ultimately, the model should be extended to three-dimensional flows. A three- 
dimensional analysis would be a valuable aid in the design of compact ejectors 
of low aspect ratio. 




Appendix A 

Compressibility of the Secondary 
Flow 


In this appendix, some of the limitations of the incompressible flow assumption 
are investigated. This investigation is necessary since most ejectors are designed 
to operate in the compressible flow regime. The analysis contained here illustrates 
that the thickness of the ejector shroud and the jet exit Mach number are important 
parameters in ascertaining the extent to which the secondary flow is incompressible. 

The analysis is begun with the definition of the thrust augmentation ratio: 


To + Ti 

To 

= l + jr (A.l) 

-to 


where T 0 is the primary nozzle thrust and T, is the thrust induced by the suction 
acting over the leading edges of the shroud (see Figure A.l). The induced thrust 
may be written as 

Ti = 2 I (p atm - p)dy (A. 2) 

JO 

where the factor of 2 accounts for both leading edges of the ejector shroud. Let the 
average pressure acting over the leading edges be denoted as pi e . Then 


Pu 


= lJo Pdy 


(A.3) 
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Figure A.l: Ejector geometry and the principle of thrust augmentation. 


The induced thrust may be written in terms of the average leading edge suction by 
combining Eqs. (A. 2) and (A. 3) 

Ti = 2 (patm ~ Ple)d (A. 4) 


This result is combined with the expression for the thrust augmentation ratio given 
in Eq. (A.l) to give 



where the primary jet thrust has been rewritten in terms of the exiting momentum 
flux. Assume that the jet nozzle is designed to fully expand the primary flow to the 
atmospheric pressure. In this case, the definition of the sound speed, c 2 = 7 p/p, 
can be used in Eq. (A. 5) to give 


7 ' u ex ' \ Patm / \t , 


(A.6) 
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or in terms of the Mach number 


I 
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<£ = 1 + 


2 

iMl 




(A.7) 


A.l Magnitude of the Leading Edge Suction 


Equation (A.7) can be used to determine the magnitude of the average leading edge 
suction for given values of the thrust augmentation, exit Mach number, and non- 
dimensional shroud thickness. To investigate the magnitude of the leading edge 
suction further, Eq. (A.7) is rewritten as 



For the purpose of illustration assume that 7 = 7/5 and <p = 2.0. I he above relation 
then becomes 



(A.9) 


Figure A. 2 shows the magnitude of the leading edge suction predicted by the 
above equation as a function of the jet exit Mach number, with the non-dimensional 
shroud thickness appearing as a parameter. The plot shows that for an extremely 
thin shroud (d/t = 1), the leading edge pressure drops rapidly with increasing exit 
Mach number. For this value of shroud thickness, the average leading edge pressure 
is one half the atmospheric value at M ex = 0.85, and is required to be vacuum at 
M ex = 1.2. As the shroud thickness is increased, the leading edge suction decreases 
so that the force developed on the ejector shroud is constant (i.e. constant thrust 
augmentation has been assumed). For moderate shroud thickness ( d/t = 5.0), the 
leading edge pressure drops below one half atmosphere at M ex = 1.9 and is required 
to be vacuum at M ex = 2.7. For a thicker shroud (d/t = 10.0), the leading edge 
suction is moderate for low Mach numbers. The leading edge pressure falls to one 
half atmosphere at M ex = 2.7 and vacuum at M ex = 3.8. 
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A. 2 Conditions for Effectively Incompressible Flow 


Another useful feature of this analysis is that it can be used to give the conditions 
under which an assumption of incompressible secondary flow is valid. This is done 
by solving Eq. (A. 7) for d/t: 


d Q - 1 ) yMl 

t (i 2 

\ Patm / 


(A. 10 ) 


For the purpose of illustration, assume that compressible effects become important 
in the secondary flow when the Mach number at the shroud leading edge is greater 
than 0.3. The isentropic relation 


Patm 

Pie 



(A.ll) 


indicates that Mu = 0.3 corresponds to a leading edge pressure of = 0.9395 
(for 7 = 7/5). With this value of the leading edge pressure, together with 7 = 7/5 
and <f> = 2.0, Eq. (A. 10) becomes 


Cl « 

- = 11.56M e 2 r 
t 


(A. 12) 


For a given jet exit Mach number, this equation gives the minimum shroud thickness 
required to ensure that the leading edge Mach number is less than 0.3 for 7 = 
7/5 and <f> = 2.0. Figure A. 3 shows a plot of the boundary predicted by Eq. 
(A. 12). The results show that the shroud thickness must increase with increasing 
jet exit Mach number in order to keep the leading edge Mach number within the 
effectively incompressible range. If the results of an ejector analysis that assumes 
incompressible secondary flow are to be used, then the combination of jet exit Mach 
number and non-dimensional shroud thickness must lie above the bounding curve 
in Figure A. 3. 


A. 3 Conclusions 

The results of this study indicate that the thickness of the ejector shroud is an 
important parameter in ejector design. In order to achieve a desired level of thrust 
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INCOMPRESSIBLE 
ASSUMPTION VALID 
FOR SECONDARY FLOW 


COMPRESSIBILITY 
IMPORTANT IN 
SECONDARY FLOW 


Figure A. 3: Boundary for the incompressible flow assumption. 7 = 7/5, <j) = 2.0. 
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augmentation at a given primary jet exit Mach number, the ejector shroud must 
be sufficiently thick so that the leading edge pressure is not required to be non- 
physically small. In addition, if the results of an incompressible analysis are used 
in ejector design, the shroud must be sufficiently thick so that the secondary flow 
remains effectively incompressible for the given operating jet exit Mach number. 




Appendix B 
Computer Code 


This appendix contains source listings for both the single-jet and dual-jet viscous- 
inviscid algorithms. The various subroutines are grouped into four libraries: AUGLIB 
TWINLIB, PAN2LIB, and MATHLIB. The AUGLIB library contains the subrou- 
tines for the single-jet viscous-inviscid matching procedure. The TWINLIB contains 
the subroutines for the dual-jet viscous-inviscid matching procedure. The PAN2LIB 
contains the subroutines needed to compute the higher-order panel method. Finally, 
the MATHLIB contains various mathematics procedures. In addition to these li- 
braries, the IMSL library is used to supply several mathematics routines. 

Both the single-jet and dual-jet codes have undergone revisions since the time 
that the results shown in this report were generated. Because of this, the code shown 
in this appendix may produce results that differ slightly from those contained within 
the results section. 


B.l Single- Jet Program AUGMENT 

AUGMENT is the driving program for the single-jet viscous-inviscid algorithm. 
Once compiled, it must be linked with the AUGLIB, PAN2LIB, MATHLIB, and 
IMSL libraries. Input data are to be read from file CASE.DAT. 
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APPENDIX R COMPUTER CODE 


PROGRAM AUGHEIT 
C 

O* ***************************************************************** *********** 

c * 

C PROGRAM AUGHEIT COMPUTES THE PERFORMANCE OF A TWO-DIMENSIONAL SINGLE-JET* 
C IICOHPRESSIBLE FLOW EJECTOR. THE CODE IS BASED 01 A VISCOUS-INVISCID INTER-* 
C ACTIOI ALGORITHM II WHICH THE IIVISCID REGION IS COMPUTED WITH A HIGHER ♦ 
C ORDER PAIEL METHOD AID THE VISCOUS ZOIE IS COMPUTED WITH AI INTEGRAL METHOD.* 
INPUT DATA IS READ FROM FILE CASE.DAT. THE ITERATION HISTORY AS WELL * 

AS THE THRUST AUGMENTATION RATIO PREDICTION ARE WRITTEN TO FILE OUT. DAT. * 

C AN EXTENDED OUTPUT OPTION MAY BE SPECIFIED IN THE INPUT DATA FILE TO CAUSE * 
C THE JET SOLUTION AS WELL AS THE DETAILS OF THE MATCHING HISTORY TO BE * 

C OUTPUT. * 

C THIS PROGRAM MUST BE LINKED TO THE MATHLIB AND PAN2LIB LIBRARIES AS WELL* 
C AS THE IMSL MATH LIBRARY. * 

C THIS CODE IS OF EVOLUTIONARY ORIGIN AND CONSEQUENTLY MAY CONTAIN REGIONS* 
C POOR LOGIC STRUCTURE AND INEFFICIENT PROCEDURES. THERE HAS BEEN NO ATTEMPT ♦ 
C MADE TO UPGRADE THE CODE TO A "PRODUCTION CODE" STATUS. * 

C ♦ 

C*«*** **************************************************************** ********* 


C 

IMPLICIT REAL*8(A-H,0-Z) 

PARAMETER( MAX-300) 

DIMENSION XBOD(MAX) , YBOD(MAX) , VN(MAX) ,XCP(MAI) ,YCP(MAX) , 
ft ALPHA(MAX) , D(MAX) f ZETA(MAX) ,CX(3*MAX) ,CY(3*MAX) , 

ft PD (MAI) , PE (MAX) , PF(MAX) , PG(MAX) ,PH(MAX) ,PPI(MAX) , 

ft C(HAX) , IND1 (MAI) ,IND2 (MAX) , A(MAI) ,B(MAX) , AMAT(MAX,HAX) , 

ft BHAT(MAX,MAI) ,W0RK(8*MAX) ,W(MAX*MAI) ,WINV(MAX*MAX) , 

ft Q(MAX) , AJET(100*MAX) , BJET(IOOMAX) ,XJET(50) , YJET(50) f 

ft UJET(50),VJET(50),R(5), 

ft IS (250) , VS (250) ,SC(100) ,UEXT(100) 

LOGICAL DUMP1, STAG, DUMP, SEP, BLAYER 
C 

C *♦* OPEN DATA FILES. BODY . DAT WILL CONTAIN THE COORDINATES OF THE *♦* 

C *** EJECTOR SHROUD. PARAM.DAT CONTAINS THE FREE STREAM VELOCITY AS *** 

C *** WELL AS THE ANGLE OF ATTACK. CASE.DAT CONTAINS THE INPUT DATA. *** 

C *** OUT. DAT CONTAINS THE CONVERGENCE HISTORY AS WELL AS THE THRUST *** 

C *** AUGMENTATION RATIO. *** 

C 

OPEN (UNIT-1 , NAME- } BODY. DAT’ , TYPE- > NEW \ FORM- ’ FORMATTED > ) 

0 PEN ( UNIT-2 , NAME- * PARAM . DAT \ TYPE- » NEW’ , FORM- ^ » FORMATTED > ) 

0 PEN (UNIT-4 , NAME- > CASE . DAT ’ , TYPE- > OLD * , FORM- > FORMATTED > ) 

0 PEN (UNIT-21 , NAME* ’OUT. DAT* , TYPE* » NEW » , FORM- > FORMATTED ’ ) 

C 

C *** T0L1 IS THE CONVERGENCE TOLERANCE FOR THE VISCOUS-INVISCID *** 

C *** MATCHING, T0L2 IS THE CONVERGENCE TOLERANCE FOR THE EXIT *** 

C *** PRESSURE MATCHING. BO IS THE JET INITIAL HALF-WIDTH. *** 

C 

T0L1-5 .OD-3 
T0L2-5.0D-3 
BO-l.D-2 
C 

C *♦* WRITE THE FREE STREAM VELOCITY AND ANGLE OF ATTACK TO FILE *** 

C *** PARAM.DAT. THE FREE STREAM VELOCITY WILL BE REDEFINED LATER *** 

C *** IF IT IS TO BE NON-ZERO. *** 

C 

VO-O.ODO 
BETA-0. ODO 
WRITE(2 , 5) VO, BETA 
5 FO RMAT ( 2 FI 0 . 5 ) 

REWIND 2 
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c 

C *** READ IIPUT PARAMETERS FROM FILE CASE. DAT. *** 

C 

CALL GETPRMCXJ, XUP,THLIP,XEXIT,XDIF,DIFSLP, GAMMA, U10,DUMP1, 

A BLAYER,RE) 

C 

C *** IF THE EXTEIDED OUTPUT OPTIOI IS CHOSEI, OPEI ADDITIOIAL FILES. ♦** 

C *** VLCJET.DAT COITAIIS THE VELOCITY COMPOIEITS ALOIG THE JET *** 

C BOUIDARY. MCHJET.DAT COiTAIIS THE JET SOLUTIOI VITHII THE 

C *** VISCOUS- II VISCID MATCHIIG REGIOI. CHIJET.DAT COITAIIS THE *** 

C *** JET SOLUTIOI VITHII THE FULLY VISCOUS REGIOI. 

C 

IF(DUMPl) THE! 

OPEI(UIIT=9 , IAME= * VELJET. DAT’ ,TYPE=>IEV’ ,F0RM=> FORMATTED > ) 
0PEI(UIIT*10,IAME* ) MCHJET.DAT I ,TYPE= > IEW\F0RM* J F0RMATTEDO 
0PEI(UIIT=12,IAME=>CHIJET. DAT’, TYPE=’IEV>,FORM=’ FORMATTED’) 

EID IF 
C 

C *** GEIERATE THE EJECTOR GEOMETRY AID WRITE THE COORDIIATES TO THE *♦* 

C **♦ FILE B0DY.DAT. 

C 

CALL BO DGEI ( X J , XU P , THLI P , I JS , I J F , IS , IF) 

IJET=IJF-IJS+1 

C 

C =* = READ THE EJECTOR BODY COORDIIATES AID PAIEL SUCTIOI VELOCITIES *** 

C *♦* IITO ARRAYS. 

C 

CALL GETDATC 1 , XBOD , YBOD , VI , I , VO , BETA) 

C 

C *** COMPUTE THE FREE STREAM VELOCITY FROM THE PARAMETER GAMMA AID *** 

C *** THE PRIMARY JET THRUST. *** 

C 

CALL FRESTH(U10,BO,1.0DO,GAMHA,VO) 

C 

C ♦** COMPUTE GEOMETRICAL PARAMETERS FOR THE PAIEL METHOD *** 

C 

CALL GEOM(IBOD, YBOD, ZETA, Cl, CY, WORK, I, ICP,YCP, ALPHA, D, 
ft IID1 , IID2, PD, PE,PF, PG, PH,PPI ,C) 

C 

C *** COMPUTE THE AERODYIAMIC IIFLUEICE MATRIX AID ITS IIVERSE ♦** 

C 

CALL IIFIIV(XCP,YCP, ALPHA, D,IID1 , IID2 ,PD,PE,PF,PG ,PH,PPI,C, 
ft WORK, A,B,V,I, AMAT,BMAT,VIIV) 

C 

C COMPUTE THE IIFLUEICE VELOCITY COEFFICIEITS ALOIG THE JET ♦♦♦ 

**♦ BOUIDARY. 

CALL JETCOFC I JS , IJ F , XCP , YCP , ALPHA , D , IID1 , 11D2 , PD, PE, PF , PG , PH , PPI , 
ft C, WORK, A,B, AMAT, BMAT,I,XJET, YJET,IJET, AJET,BJET) 

C 

C *** El TER A LOOP TO DO THE EIIT PRESSURE MATCHIIG. *** 

C 

J MAX =10 
DO J=1 , JMAX 
C 

C *** EITER A LOOP TO DO THE VISCOUS-IIVISCID MATCHIIG *** 

C 

IMAX*10 
DO 1=1 , IMAX 
C 

C *♦* COMPUTE THE PAIEL SOURCE STREIGTHS . *** 
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c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


10 


c 

c 

20 

c 

c 

c 

c 

c 

c 


c 

c 

c 

40 

c 

c 

c 

c 

c 

90 

c 


CALL STRITH( ALPHA , VI , tfl 1 V , I , VO , BETA , Q ) 

*** COMPUTE THE VELOCITY COMPOIEITS ALOIG THE JET BOUHDARY *♦* 

CALL JETVEL(AJET,BJET,IJET,Q ,1, VO ,BETA,UJET, VJET, 

1 UOO , PATH) 

*♦* COMPUTE THE JET SOLUTIOI WITHII THE VISCOUS-IIVISCID ♦ ♦♦ 
*** MATCHIIG REGIOI . 

CALL JET(IJS,IJF,XJET,YJET,UJET,VJET,IJET,U10,BO, 

1 VI,I,DUHP1 , I , XEID , R,RES) 

♦** COMPUTE THE FREE STREAM VELOCITY. 

CALL FRESTH(U10,B0,U00, GAMMA, VO) 

*** CHECK FOR COIVERGEICE II THE VISCOUS-IIVISCID MATCHIHG. *** 

IF(I. GT.l. AID. DABS(RES) .LT. TOLl) GOTO 20 
IF(I.EQ.IMAX) THEI 
WRITE (21 ,10) 

FORMATC * VISCOUS-IIVISCID MATCHIIG DID IOT COIVERGE’) 

STOP 
EID IF 

EID DO 

COITIIUE 

*** COMPUTE THE JET SOLUTIOI WITHII THE FULLY VISCOUS REGIOI *** 
CALL CHAIELC R , XEXIT , IEID , IDIF , DIFSLP , DUMP1 , PEXIT, DFDRAG) 

*♦* UPDATE THE IIITIAL JET VELOCITY 
ROLD=RR 

RR=(PATM- PEXIT) 

IF(J.EQ.l) THEI 
WW=0 . 2 
ELSE 

WWs- (U1 0-Ul OOLD) / ( RR-ROLD) 

EID IF 

U100LD=U10 

U10=U10+WV*RR 

*♦* WRITE COIVERGEICE IIFORMATIOI. *** 

WRITE(21 , 40) PA TM, PEXIT ,RR,U10 

FORMATC 9 PATM * ’.FIO.S,’ PEXIT = 5 ,F10.5, 

* 9 R * * ,F10.5 , 9 U10 * 9 ,F10. 5) 

CHECK FOR COIVERGEICE II THE EXIT PRESSURE MATCHIIG. *** 

IFCDABS(RR) .LT.T0L2) GOTO 90 

EID DO 

COITIIUE 
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IF(BLAYER) THEI 
C 

C *** COMPUTE THE EJECTOR SURFACE VELOCITIES. *♦* 

C 

CALL SURF VEL ( IEID , IEIIT , ICP , YCP , D , AMAT , BMAT ,Q,I, 

1 VO , BETA , SC , UEXT , IEIT , XLEI , STAG) 

C 

C *** COMPUTE THE BOUIDARY LAYER. *** 

C 

DUMP*. FALSE. 

ISTEP*20 

CALL AUGLYR( S C , UEXT , IEIT , RE, STAG, DUMP , ISTEP , SEP , SCRIT) 

C 

C WRITE THE RESULTS. *** 

C 

IF(SEP) THE! 

WRITE(21 ,100) 

100 FORMATC/ , , SEPARATED BOUIDARY LAYER’,/) 

ELSE 

VRITE(21 , 110) 

110 FORMATC/,’ 10 SEPARATIOI’ ,/) 

EBD IF 
EMD IF 
C 

C ♦** COMPUTE THE DIFFUSER EXIT WIDTH. 

C 

HEXIT=1 . 0D0+ (XEXIT-XDIF) *DIFSLP 
C 

C *** COMPUTE THE EJECTOR PERFORMAICE 

C 

CALL PERFRMC R , HEXIT , ALPHA , D , AMAT , BMAT , Q , V , VO , BETA , 

1 U1 0 , UOO , BO , DFDRAG , IS , IF , PHI ) 

C 

C *** REWRITE THE EJECTOR BODY GEOMETRY FILE WITH THE CORRECT VALUE *** 

C *** OF THE PAIEL SUCTIOI VELOCITIES. **♦ 

C 

REWIID 1 
DO 1*1, 1+1 

WRITECl , 120) XBOD(I) ,YBOD(I) , VI(I) 

120 F0RMATC3F1O.5) 

EID DO 
C 

C **♦ DELETE FILE PARAM.DAT. *** 

C 

CL0SE(UIIT*2 , STATUS*’ DELETE ’ ) 

C 

STOP 

EID 
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B.1.1 Sample Input 

Below is a listing of sample input data contained in file CASE.DAT. 


0.0000 
1 .0000 
0.0000 
6.5000 
6.5000 
0.0000 
0 . 0000 
15.0000 
1 
1 

1.00E5 


X COORDIIATE OF THE JET IOZZLE 
X COORDIIATE OF THE SHROUD LIP 
ROTATIOI AIGLE OF THE SHROUD LIP (II DEGREES) 

SHROUD LEIGTH 

X COORDIIATE OF THE DIFFUSER START 
DIFFUSER SLOPE 

FREE STREAM SPEED PARAMETER, GAMMA 
IIITIAL JET CEITERLIIE VELOCITY 

EITEIDED OUTPUT OPTIOI (1 FOR EXTRA OUTPUT, 0 FOR STAIDARD) 
BOUIDARY LAYER CALCULATIOI COITROL (1 CALCULATES IT, 0 DOESIT) 
THRUST BASED REYIOLDS I UMBER 


B.1.2 Sample Output 

Below is the output written to file OUT. DAT 


PATM 

X 

0.79853 

PEXIT 

= 

0.65228 

R 

= 

0.14625 

U10 

s 

15.02925 

PATH 

s 

0.79280 

PEXIT 

5 

0.64757 

R 

= 

0.14523 

U10 

= 

19.15580 

PATM 

s 

1 .04161 

PEXIT 

S 

1.20321 

R 

s 

-0.16160 

U10 

= 

16.98242 

PATM 

s 

0.92311 

PEXIT 

= 

0.90936 

R 

= 

0.01375 

U10 

s 

17.15281 

PATM 

= 

0.91671 

PEXIT 

= 

0.91357 

R 

= 

0.00314 

U10 

X 

17.20317 


SEPARATED BOUIDARY LAYER 


JET MOMEITUM * 2.72349 EXITIIG MOMEITUM « 3.91059 

IHDUCED THRUST COMPUTED FROM SURFACE PRESSURES * 1.25313 

IHDUCED THRUST COMPUTED FROM MOMEITUM THEOREM * 1.18709 

PRESSURE DRAG ASSOCIATED VITH THE DIFFUSER = 0.00000 

THRUST AUGMEITATIOI RATIO FROM SURFACE PRESSURES = 1.46012 

THRUST AUGMEITATIOI RATIO FROM MOMEITUM THEOREM * 1.43587 



ORIGINAL PAf-iT £3 

OF POOR QUALITY 


B.2. DUAL-JET MAIN PROGRAM DUQA UG 147 


B.2 Dual- Jet Main Program DUO AUG 

DUO AUG is the driving program for the dual-jet viscous-inviscid algorithm. Once 
compiled, it must be linked to the TWINLIB, PAN2LIB, MATHLIB, and IMSL 
libraries. Input data are to be read from file CASE.DAT. 

PROGRAM DUOAUG 

c 

c** ******************************************************************* ********* 

c * 

C PROGRAM DUOAUG COMPUTES THE PERFORMAICE OF A TWO-DIMEISIOIAL , * 

C IICOHPRESSIBLE FLOW DUAL-JET EJECTOR. THE CODE IS BASED 01 A VISCOUS- * 

C IIVISCID ALGORITHM II WHICH THE IIVISCID REGIOI IS COMPUTED WITH A HIGHER- * 

C ORDER PAIEL METHOD AID THE VISCOUS REGIOI IS COMPUTED WITH AI IITEGRAL * 

C METHOD. * 

C IIPUT DATA IS READ FROM FILE CASE.DAT. THE ITERATION HISTORY AS WELL AS * 

C THE THRUST AUGMEITATIOI RATIO IIFORMATIOI ARE WRITTEI TO FILE OUT. DAT. AI * 

C EITEIDED OUTPUT OPTIOI HAY BE SPECIFIED II THE IIPUT FILE TO CAUSE THE JET * 

C SOLUTIOI AS WELL AS MORE IIFORMATIOI ABOUT THE HATCHIIG PROCEDURE TO BE OUT-* 

C PUT . * 

C THIS PROGRAM MUST BE LI IKED TO THE PAI2LIB AID MATHLIB LIBRARIES AS WELL* 

C AS THE IMSL LIBRARY MATH LIBRARY. * 

C THIS CODE IS OF EVOLUTIONARY ORIGII AID CONSEQUENTLY MAY COITAII REGIOIS* 

C OF POOR LOGIC STRUCTURE AID INEFFICIENT PROCEDURES. THERE HAS BEEI 10 * 

C ATTEMPT TO UPGRADE THE CODE TO A "PRODUCTIOI CODE" STATUS. * 

C * 

C ♦** LATEST REVISION - 23 APR 1987 **♦ * 

C * 

0 * ************************************************************** *************** 

C 

IMPLICIT REAL*8( A-H ,0-Z) 

LOGICAL DUMP1 
PARAMETER (HAX=250) 

DIMEISIOI XBOD(MAX) ,YBOD(MAX) ,VI(HAX) ,XCP(MAX) ,YCP(HAX) , 

1 ALPHA (MAX) ,D(MAX) , ZETA(MAX) ,CI<3*KAX) ,CY(3*HAX) , 

2 PD(MAX) , PE(HAX) , PF(HAX) p PG(MAX) ,PH(MAX) ,PPI(MAX) , 

3 C(MAI) , IID1 (MAX) ,IID2(MAX) ,W0RK(8*MAX) ,W(MAX*MAX) , 

4 WIIV(HAX*HAX) ( AVEC(MAX) ,BVEC(HAX) ,AKAT(MAX*MAX) , 

5 BMAT(MAX*MAI) ,Q(MAI) , ALWR(100*MAX) ,BLWR(100*MAX) , 

6 AUPP(100*MAX) ,BUPP(100*MAI) 

C 

C *** AREA21 IS SHARED WITH DERIV2 AID TWOJET *** 

C 

COMMOI U0,U1,P,A,B,Y1,ALP 
CO MHO I /AREA21/ DIFSLP,IDIFF 
C 

C *** OPEN IIPUT AID OUTPUT FILES. CASE.DAT COITAIIS THE IIPUT *** 

C *** VALUES. OUT. DAT WILL COITAII THE OUTPUT. *** 

C 

0 PEI ( UII T* 4 , NAME* ’CASE. DAT’ , TYPE* ’ OLD \ FORM* ’ FORMATTED ’ ) 

0 PEI (UIIT*21 , 1 AME* > OUT . DAT J , TYPE* * NEW * , FORM* > FORMATTED J ) 

C 

C *** TO LI IS THE TOLERAICE FOR THE VISCOUS- IIVISCID HATCHIIG *** 

C *** T0L2 IS THE TOLERAICE FOT THE EXIT PRESSURE HATCHIIG *** 

C 

ALP=DL0G(1 . 0D0+DSQRT(2 . ODO)) 

T0L1*5 , OD-3 
T0L2*1 . OD-3 
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c 

C *** READ II THE IIPUT VALUES *** 

C 

CALL GETPRMCXJ , YJ , Y1DOTO ,XEXIT ,D1 ,D2 , GAMMA, UlO, BO, DUMP1) 

DIFSLP-Dl 

XDIFF-D2 

C 

C *** WRITE THE FREE STREAM VELOCITY AID THE AIGLE OF ATTACK TO A *** 

C *** DATA FILE. THE VALUE OF FREE STREAM SPEED WILL BE CHAIGED *** 

C *♦♦ LATER IF REQUIRED. *** 

C 

OPEI(UIIT= 2 , I AME- 3 PARAM . DAT 3 , TYPE= 3 IEW 3 , FORM- 3 FORMATTED 3 ) 

VO-O.ODO | 

BETA-0 .ODO 

WRITE(2, 8) VO, BETA ; 

8 F0RMATC2F1O.5) 

REWIED 2 
C 

C *♦* WRITE AI IIITIAL GUESS FOR THE JET TRAJECTORY TO FILE JETCL.DAT*** 

C 

0 PEI (UIIT-2 0 , 1 AME= 3 J ETCL . D AT 3 , TYPE- 3 IEW 3 , FO RM- 3 FORMATTED 3 ) 

XCL=XJ 

YCL-YJ 

WRITE(20 , 8) XCL , YCL | 

XCL-12.0DO 

YCL-YJ +Y1 DOT* ( XCL- X J ) 1 

WRITEC20, 8) XCL, YCL 
REWIID 20 
C 

C *** IF THE EXTEIDED OUTPUT OPTIOI IS CHOSEI, OPEI ADDITIONAL OUTPUT*** 

C *** FILES. LWRJET.DAT COITAIIS THE VELOCITIES AT THE LOWER SIDE *♦♦ 

C *** OF THE JET. UPPJET.DAT COITAIIS THE VELOCITIES AT THE UPPER *** 

C *** SIDE OF THE JET. MCHJET COITAIIS THE JET SOLUTIOI OVER THE *** 

C **♦ VISCOUS- II VISCID MATCHIIG REGIOI. CHIJET COITAIIS THE JET *** j 

C *** SOLUTIOI WITHII THE FULLY VISCOUS REGIOI. *** 

C 

IF(DUMPl) THEI 

OPEH(USIT= 9,IAME= 3 LWRJET.DAT\TYPE= 3 IEW 3 , FORM= 3 FORMATTED 3 ) • 

0PEI(UIIT=10,IAME= 3 UPPJET. DAT 3 ,TYPE= 3 IEW 3 ,FORM= 3 FORMATTED 3 ) 

0 PEI ( UII T=1 1 , 1 AME- 3 MCH J ET . DAT 3 , TYPE= 3 IEW 3 , FORM= 3 FO RMATTED 3 ) j 

0 PEI ( UII T*1 2 , 1 AME= 3 CHI J ET . DAT 3 , TYPE= 3 IEW 3 , FORM- 3 FORMATTED 3 ) 

EID IF 
C 

10 COITIIUE 
C 

C *** OPEI A DATA FILE TO HOLD THE EJECTOR SURFACE COORDIIATES *** | 

C 

OPEI (UII T=1 , IAME= 3 BODY . DAT 3 , TYPE- 3 IEW 3 , FORM- 3 FORMATTED 3 ) j 

C 

C *** GENERATE THE EJECTOR SURFACE COORDIIATES AI THE IIITIAL GUESS *** i 

C *** FOR THE PANEL SUCTIOI VELOCITIES *** 

C 

CALL DUOBODCXJ , Y J , DY1 DXO ,Y1CS, IJLS, IJLF , I JUS , I JUF , IS , IF , IER) 

IF(IER.EQ.l) THEI 
WRITE(3,101) 

101 FORMATC 3 ERROR II DUOAUG: DUOBOD RETURNED WITH IER-1 3 ) j 

STOP 

EID IF j 

c ! 

C *** READ THE EJECTOR SURFACE COORDIIATES AID THE PANEL SUCTIOI *** | 

C *** VELOCITIES IITO DATA ARRAYS. ] 
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c 

CALL GETDATCl , XBOD , YBOD , VI , 1 t VO , BETA) 

C 

C *** COMPUTE THE CORRECT VALUE OF THE FREE STREAM SPEED. 

C 

CALL FSTRM(U10, BO, 1 . ODO, 0. ODO, GAMMA , VO) 

C 

C *** COMPUTE GEOMETRICAL PARAMETERS FOR THE PAIEL METHOD. 

C 

CALL GEOMUBOD, YBOD, ZETA,CX,CY,VORK , I, XCP,YCP, ALPHA, D, 

1 I EDI , IID2,PD, PE,PF,PG,PH, PPI ,C) 

C 

C *** COMPUTE THE IEFLUEICE COEFFICIEIT MATRIX AID ITS IEVERSE 

C 

CALL IIFII V( ICP , YCP , ALPHA , D , IID1 , IID2 , PD , PE , PF, PG , PH , PPI , C , 

1 WORK , AVEC , BVEC , W , V , AM AT , BMAT , VI IV) 

C 

C *** COMPUTE THE IIFLUEICE VELOCITY COEFFICIEITS ALOEG THE JET 

C BOUIDARY . 

C 

CALL JETMATdJLS , I JLF , IJUS , IJUF , XCP , YCP, ALPHA, D , IID1 , 1 ID2 , 

1 PD , PE , PF , PG , PH , PPI , C, WORK , AVEC, BVEC , AMAT , BMAT , I , 

2 ALVR , BLWR , AUPP , BUPP) 

C 

C ♦** PREPARE FOR AI UPDATED JET TRAJECTORY 

C 

CL0SE(UIIT*2O, STATUS 5 ’ DELETE » ) 

0PEI(UIIT=2O, IAME*’ JETCL. DAT’ ,TYPE=’IEW J , FORM 5 * FORMATTED f ) 

C 

C *** EITER A LOOP TO COIVERGE THE EXIT PRESSURE 

C 

JMAX=10 
DO J*1 , JMAX 
C 

C *** EITER A LOOP TO PERFORM THE VISCOUS-IIVISCID MATCHIHG 

C 

IMAI=10 
DO 1*1 ,IMAX 

**• COMPUTE THE PAIEL SOURCE STREIGTHS 

CALL STRITHC ALPHA , VI , WIIV , I , VO , BETA , Q) 

*** COMPUTE THE VELOCITIES ALOIG THE JET BOUIDARY 

CALL VLCJ ET ( ALVR , BLWR , AUPP , BUPP , Q , IJLS , I JLF , IJUS , IJUF , 

1 I, VO, BETA, PATH) 

*** COMPUTE THE JET SOLUTIOI WITHII THE MATCHIIG REGIOI 

CALL OIEJET(IJLS ,IJLF,IJUS, IJUF, YJ , Y1DOTO,U10, BO, VO , 

1 ALPHA, VI ,1 , DUMP1 ,1 ,U00, AO,XEID, Y1EID,RES) 

*** COMPUTE THE CORRECT VALUE OF THE FREE STREAM VELOCITY 

CALL FSTRM(U10,B0,U00, AO,GAMMA,VO) 

*** CHECK FOR COIVERGEICE II THE VISCOUS-IIVISCID MATCHIIG 
C 

IF(I. GT.l. AID. DABS(RES) .LT. T0L1) GOTO 20 
IF(I.EQ.IMAX) THEI 


* ** 


*** 




*** 

*** 


*** 


+++ 


*** 


*** 


*** 


** * 


** * 


*+* 


o o 
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VRITE(3, 19) 

19 FORMAT ( ' VISCOUS-IIVISCID MATCHIIG DID I0T COIVERGE ») 

IER=1 

GOTO 200 
EID IF 
C 

EID DO 
C 

20 COITIIUE 
C 

C *** COMPUTE THE JET SOLUTIOI VITHII THE FULLY VISCOUS REGIOH *** 

C 

CALL TWOJET(XEXIT, XEID,DUMP1 , PEXIT,DFDRAG,IER) 

IFCIER.EQ.1) GOTO 200 
C 

C *** UPDATE THE JET IIITIAL VELOCITY ♦** 

C 

ROLD=R 

R=(PATM-PEIIT) 

IF(J.EQ.l) THEI 
W=0 . 2 
ELSE 

W=- (U1 0-Ul OOLD) / ( R-ROLD) 

EID IF 

IF(DABS ( W*R) . GT . 3 . ODO) THEI 
W=W/2.0DO 
EID IF 
U100LD=U10 
U10=U10+¥V*R 
C 

C *** WRITE ITERATIOI IIFORMATIOI *** 

C 

WRITE(21 , 30) PATM,PEXIT,R,U10 

30 FORMAT( ' PATM * \F10.S,' PEXIT = \F10.5, 

1 ' R = ' , F10 . 5 , ' U10 = ',F10.S) 

C 

C ♦♦♦ CHECK TO SEE THAT THE PAIEL GEOMETRY IS COISISTEIT WITH *** 

C *** THE COMPUTED JET CEITERLIIE. IF IOT START OVER BY **♦ 

♦** GEBERATIIG A IEW PAIEL COIFIGURATIOI *** 

DIFF=Y1EID-Y1CS 

IF(DABS(R) . LT. 0 . IDO. AID . DABS (DIFF) .GT.O.OS) THEI 
VRITEC21 , 25) 

25 FORMATC/, 5 IEV BODY GEIERATED ' ,/) 

CLOSE (UIIT=1 .STATUS* 'DELETE') 

GOTO 10 
EID IF 
C 

C *** CHECK FOR COIVERGEICE II THE EXIT PRESSURE MATCHIIG *** 

C 

IFCJ.GT.l .AID.DABS(R) .LT.T0L2) GOTO 40 
IF(J.EQ.JMAX) THEI 
WRITE(3,31) 

31 FORMAT ( 3 ERROR II DUOAUG: PRESSURE MATCHIIG DID 3 

1 'IOT COIVERGE') 

IER=1 
GOTO 200 
EID IF 
EID DO 
C 

C *** COMPUTE THE THRUST AUGMEITATIOI RATIO *** 
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40 CALL PERFO R ( ALPHA , D . AH AT , BNAT , Q , I , VO , BETA , U1 0 , UOO , AO , BO , 

1 DFDRAG , IS , IF, I JLF , I JUS , PHI) 

C 

200 COITIIUE 
C 

C *** WRITE THE EJECTOR SURFACE COORDIIATES ALOIG WITH THE CORRECT ♦** 

C *** VALUE OF THE PAIEL SUCTIOI VELOCITIES. *** 

C 

REWIID 1 
DO I =1,1+1 

WRITE( 1,111) IBOD(I) ,YBOD(I) , VI(I) 

111 FORKAT(3F10.S) 

EHD DO 
C 

C *** CLOSE DATA FILES *+♦ 

C 

CL0SE(UIIT=1 .STATUS* ’KEEP » ) 

CL0SE(UIIT=2, STATUS* ’KEEP’) 

CLO S E ( UI I T*4 , S TATUS * » KEEP ’ ) 

IF(DUMPl) THEM 

CLO S E ( UII T*9 , S TATUS * 3 KEEP ’ ) 

CLOSE(UIIT=10, STATUS-' KEEP ’) 

CL0SE(UIIT=11 , STATUS =’ KEEP’) 

CL0SE(UIIT=12 , STATUS KEEP 1 ) 

EID IF 

CL0SE(UIIT=20, STATUS*’ KEEP’) 

CLO S E( UIIT*2 1 , STATUS*’ KEEP’) 

C 

STOP 

EID 
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B.2.1 Sample Input 

Below is a set of sample input data contained in file CASE.DAT. 


2.0000 I COORDIIATE OF THE PRIMARY I0ZZLE 

1.0000 Y COORDIIATE OF THE PRIMARY 10ZZLE 

0.0000 JET IIITIAL CEITERLIIE SLOPE 

13.2100 X COORDIIATE OF SHROUD EXIT 

0.3640 DIFFUSER SLOPE 

9.0000 X COORDIIATE OF THE DIFFUSER START 

0.5000 FREE-STREAM SPEED PARAMETER 

10.0000 IIITIAL JET CEITERLIIE VELOCITY 

0.0150 IIITIAL JET HALF-WIDTH 

1 EXTEIDED OUTPUT OPTIOI: 1 FOR EXTRA OUTPUT 0 FOR PL All 


B.2.2 Sample Output 

Below is the output data written to file OUT. DAT 


PATH = 

2.25421 

PEXIT 

s 

2.80465 

R 

= 

-0,55044 

U10 

3 

9.88991 

PATH = 

2.28385 

PEXIT 

s 

2.81609 

R 

= 

-0,53224 

U10 

= 

8.28042 

PATM = 

1.94640 

PEXIT 

3 

2.25369 

R 

3 

-0.30729 

U10 

3 

6.08176 

PATH = 

1.50727 

PEXIT 

S 

1 . 60380 

R 

3 

-0.09653 

U10 

= 

5.07471 

IEW BODY GEHERATED 









PATM * 

1.28629 

PETIT 

S 

1.31879 

R 

3 

-0.03250 

U10 

3 

5.06821 

PATM = 

1.30357 

PEXIT 

3 

1 . 33681 

R 

= 

-0.03323 

U10 

3 

5.36218 

PATM = 

1.33723 

PEXIT 

3 

1.38920 

R 

3 

-0.05197 

U10 

3 

4.54686 

PATM = 

1 .26238 

PEXIT 

S 

1.26547 

R 

3 

-0.00309 

U10 

= 

4.49526 

PATM = 

1 .23384 

PEXIT 

3 

1.23263 

R 

3 

0.00121 

U10 

= 

4.50974 

PATM = 

1 .22981 

PEXIT 

S 

1.22915 

R 

* 

0.00066 

U10 

3 

4.52713 

SHROUD 

THRUST SIMPSOIS RULE 

, MIDPOIIT RULE 

0.66204 

0. 

66908 

IOZZLE 

CAP THRUST 

SIMPSOIS 

RULE, MIDPOIIT 

RULE: 0.02953 

0.05889 


JET MOMEITUH = 0.93306 EXITIIG MOMEITUM = 1.54414 

IIDUCED THRUST COMPUTED FROM SURFACE PRESSURES = 0.69157 

IIDUCED THRUST COMPUTED FROM MOMEITUM THEOREM - 0.71036 

PRESSURE DRAG ASSOCIATED WITH THE DIFFUSER * 0.22717 

THRUST AUGMEITATIOI RATIO FROM SURFACE PRESSURES * 1.63478 

THRUST AUGMEITATIOI RATIO FROM MOMEITUM THEOREM * 1.65492 
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B.3 Subroutine Libraries 


B.3.1 Single- Jet Library AUGLIB 

SUBROUTI IE iUGLYRC I , V , I , R, STAG , DUMP , ISTEP , SEP, SCRIT) 

C 

C********************************************************************* 

C THIS CODE WAS VRITTEI FOR THE JOIIT IISTITUTE FOR AEROIAUTICS 
C AID ACOUSTICS BY THOMAS LUHD . LATEST REVISIOI 8 SEPT. 1984. 

C 

C THIS SUBROUTIIE COMPUTES LAMIIAR AID TURBULEIT BOUIDARY LAYER 
C DEVELOPMEIT, GIVEI AI EITERIAL VELOCITY DISTRIBUTIOI . THE EQUATIONS 
C SOLVED HERE ARE BASED 01 AI IITEGRAL FORMULATIOI OF THE BOUIDARY 
C LAYER EQUATIOIS . II THE TURBULEIT CASE, THE IORMAL TURBULEIT 
C STRESSES ARE IEGLECTED II COMPARISOI WITH THE TURBULEIT SHEARIHG 
C STRESS. THE TURBULEIT BOUIDARY LAYER EQUATIOIS USED HERE ARE FOUID 
C II SCHLICHTIIG (7TH ED) P. 676, EQS. (22.7a,b), <22.8a,b), AID 
C FIG 22.7 

C THE VELOCITY DISTRIBUTIOI DESCRIBED IEED MOT HAVE A 
C STAGIATIOI POUT (SEE DESCRIPTIOI OF PARAMETER STAG). THE CODE 
C ASSUMES THAT ALL BOUIDARY LAYERS HAVE A LAMIIAR ORIGII. TO AVOID 
C SIHGULARITIES AT THE ORIGII, IIITIAL VALUES OF THE VARIOUS CHARAC- 
C TERISTIC THICKIESSES AID SHAPE FACTORS ARE ASSUMED BY COMPUTIIG 
C THESE QUAITITIES AT A SMALL DISTAICE FROM THE ORIGII USIIG AIALYTIC 
C EXPRESSIONS FOR A LAMIIAR BOUIDARY LAYER II A ZERO-PRESSURE GRAD- 
C IEHT OUTER STREAM. 

C THE LAMIIAR BOUIDARY LAYER EQUATIOIS ARE MARCHED AWAY FROM THE 
C IIITIAL DATA UITIL THE EID OF THE BODY IS REACHED, OR EITHER TRAIS- 
C ITIOI TO TURBULEIT FLOW, OR LAMIIAR SEPARATIOI IS DETECTED. IF 
C LAMIIAR SEPARATIOI IS DETECTED, THE CODE HALTS AT THE POUT OF 
C SEPARATIOI. IF TRAISITIOI IS DETECTED, THE CODE SWITCHES TO THE 
C TURBULEIT BOUIDARY LAYER EQUATIOIS, AID COITIIUES TO MARCH UITIL 
C EITHER THE EID OF THE BODY IS REACHED, OR TURBULEIT SEPARATIOI IS 
C DETECTED. IF TURBULEIT SEPARATIOI IS DETECTED, THE CODE HALTS AT 
C THE POUT OF SEPARATIOI. 

C IF OUTPUT IS SPECIFIED (SEE DESCRIPTIOI OF PARAMETERS DUMP AID 
C ISTEP) THE FOLLOWIIG DATA WILL BE PRIITED TO UIIT 3 FOR SPECIFIED 
C VALUES OF THE SURFACE COORDINATE: SHAPE FACTOR H32, DISPLACEMEIT 
C THICKNESS, MOMENTUM THICKIESS, EIERGY THICKIESS, AID LOCAL SKII 
C FRICTIOI COEFFICIENT 
C 

C **PARAMETER DESCRIPTIONS** 

C 

C IIPUT : 

C X - VECTOR OF LENGTH I COITAIIIIG THE VALUES OF THE SURFACE 

C COORDINATE AT WHICH EXTERNAL VELOCITIES ARE GIVEI. THE 

C SURFACE COORDINATES MUST START FROM ZERO (X(1)*0.0), BE 

C II IICREASIIG ORDER, AID BE IORMALIZED BY THE SURFACE 

C LEIGTH (X(I)-l.O). 

C V - VECTOR OF LEIGTH I COITAIIIIG THE VALUES OF THE EXTERNAL 

C VELOCITY WHICH CORRESPOID TO THE SURFACE COQRDIIATES 

C COITAIIED II VECTOR I. THE EXTERNAL VELOCITY MUST BE 

C IORMALIZED BY THE CHARACTERISTIC VELOCITY OF THE PROBLEM 

C I - NUMBER OF SURFACE COORDIIATE AID EXTERNAL VELOCITY DATA 

C PAIRS (LENGTH OF VECTORS X AND V). 

C R - GLOBAL REYNOLDS NUMBER DEFINED AS R»Uc*L/vis, WHERE Uc 

C IS THE CHARACTERISTIC VELOCITY OF THE PROBLEM, L IS THE 

C SURFACE LENGTH, AID *i» IS THE COEFFICIENT OF KINEMATIC 

C VISCOSITY. 

C STAG - LOGICAL VARIABLE USED TO SPECIFY WHETHER OR NOT A 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


STAGIATIOI POUT EXISTS. IF STAG IS SET TO .TRUE. A 
STAGIATIOI POUT IS ASSUMED, IF SET TO .FALSE. 10 STAG- 
IATIOI POUT IS ASSUMED. 

DUMP - LOGICAL VARIABLE USED TO SPECIFY WHETHER OR IOT OUTPUT 
IS TO BE GEIERATED. IF DUMP IS SET TO .TRUE. OUTPUT IS 
SEIT TO UIIT 3, IF DUMP IS SET TO .FALSE. 10 OUTPUT IS 
GEIERATED. 

HSTEP - IITEGER VALUE USED TO SPECIFY THE I UMBER OF STATIOHS AT 
WHICH OUTPUT IS TO BE GEIERATED. THE STATIOIS ARE Equi- 
SPACED. 

OUTPUT: 

SEP - LOGICAL VARIABLE USED TO IIDICATE A SEPARATED BOUIDARY 
LAYER. IF EITHER LAMIIAR OR TURBULEIT SEPARATIOI IS 
DETECTED, SEP IS SET TO .TRUE. IF 10 SEPARATIOI IS 
DETECTED, SEP IS SET TO .FALSE. 

SCRIT - DIMEISIOILESS SURFACE COORDIIATE AT WHICH THE BOUIDARY 
LAYER HAS SEPARATED. IF 10 SEPARATIOI OCCURS SCRIT = 1 
IIDICATIIG THE EID OF THE BODY 


O* *************** ********************************* ******************* 


C 

IMPLICIT REAL*8( A-H ,0“Z) 

EXT E RIAL FCIL,FCIT 

DIMEISIOI X(100) ,V(100) ,C(24) ,W(2,9) ,Y(2) ,YD(2) 

COMMOI /BLCVEL/ IX(IOO) , VVClOO) ,RR 
COMMOI /BLCSPLI/ SPLI(100),II 
COMMOI /AREA10/ IC 
COMMOI /AREA12/ XEXIT 
LOGICAL STAG, LMIR, SEP, DUMP 
C 

C *** FUICTIOI FI RETURIS H12 GIVEI H32 *** 

C 

F1(H32)=H32/(3.0DO*H32-4.0DO) 

C 

C *** FUICTIOI WSHR RETURIS THE LOCAL TURBULEIT SKII FRICTIOI *** 

C *** COEFFICIEIT DIVIDED BY 2, GIVEI THE SHAPE FACTOR H12 *** 

C *** AID THE REYIOLDS IUMBER BASED 01 MOMEITUM THICKIESS RD2 . *♦♦ 

C 

WSHRCH12 , RD2) =0 . 0245 DO* (1 . 0D0-2 . 0959DO*DLOG10(H12) ) **1 . 705D0 
k /RD2**0 . 268D0 

C 

C *** II ORDER TO PASS SUBROUTINE ARGUMENTS II COMMOI AS WELL, *** 

C *** WE HAVE TO DEFIIE REDUIDAIT ARRAYS XX AID VV, AID *** 

C *** C01STAITS RR AID II *** 

C 

DO 1 1=1,1 
XX(I)*I(I) 

VV(I)-V(I) 

1 COITIIUE 
RR=R 
11*1 


IF=I-1 

C 

C *** SPLIIE FIT THE VELOCITY DATA USIIG AUGLIB ROUTIIE LISPLI *** 

C 

CALL LISPLI ( X , V , I , SPLI , I ER) 

IF(IER.IE.O) THEI 
VRITEC3, 642) IER 

642 FORMATS II SUBROUTIIE AUGLYR LISLPLI RETURIED WITH THE ERROR* 

A ’COIDITIOI IER * * , 15) 


a a 
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STOP 
EID IF 
C 

C *** DS IS THE IITEGRATIOI STEP SIZE, SI IS THE IIITIAL COIDITIOI **♦ 

♦** STATIOI *** 

DS=5.0D-4 
SI=0 . 05D0 
C 

C *** DEFIIE IITEGRATIOI DO LOOP UPPER LIMIT *** 

C 

I EID=IIIT(( 1 . ODO-SI) /DS ) 

C 

C *** DEFIIE THE I UMBER OF IITEGRATIOI STEPS BETVEEI PRIITOUTS 

C 

■PRIIT=1 . ODO/(DFLOAT(ISTEP)*DS) 

CALL LIITRP(SI ,I,V,SPLI,I, VI, VID,IER) 

IFCIER.EQ .1) THE! 

HRITE(3,71) SI 

71 FORMATC } II AUGLYR LIITRP RETURIED VITH Al ERROR FLAG’,/, 

ft » I HAD THE VALUE’ ,F10. 6, * OI EITRY’) 

STOP 
EID IF 
C 

C *** CHECK FOR STAGIATIOI POUT, AID SET IIITIAL VALUES *** 

C *** ACCORDIIGLY 

C 

IF(STAG) THE! 

IF(DUMP) VRITEC3 , 3) 

3 F0RMAT(10I , ’ STAGIATIOI POUT *) 

H32*l . 61998D0 

D2=0 . 29004D0/DSQRT(R*VID) 

D3«H32*D2 

ELSE 

IF(DUMP) WRITE(3,5) 

5 FORHATClOI , * 10 STAGIATIOI POUT ’) 

H32*l. 57258 

D2=0.66411*DSQRT(SI/(R*VI)) 

D3»H32*D2 
EID IF 

IF( DUMP) THE! 

WRITEC3, 6) R , H32 , D2 , D3 , S I , VI 

6 FORMATC/, 101, ’ REYIOLDS IUMBER - ’ ,E10.4,//,10X, 

ft > IIITIAL VALUES ’ ,//,10X, * H32 - » ,E10.4,/ ,101, 

ft ’ MOMEITUM THICKIESS * ’ ,E10. 4,/ ,101, 

ft * El ERG Y THICKIESS * » ,E10.4,/ ,101, » ABSCISSA = \ 

ft E10.4,/ ,101 , 9 VELOCITY - ’,E10.4,/) 

WRITE(3,7) 

7 FORMATC 9 1 VELOCITY’) 

DO 9 1*1,1 

VRITEC3, 8) ICD.VCI) 

8 F0RMATC2F1O.4) 

9 COITIIUE 
EID IF 
RD2*R*VI*D2 

C 

C *** COMPUTE IIITIAL LAMIIAR SKII FRICTIOI *♦* 

C 

CALL FAPPCH32 , H12 , EPS ,D, KAPS) 

CFL-EPS/RD2 
CD*2 .ODO*CFL*VI*VI 


rs a 
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D1=H12*D2 

IF(DUMP) VRITE(3,10) 

10 F0RMAT(//,7I, >X> ,111, 5 H32 \ 101 D1 Mil, J D2 > ,11X , J D3M1X, >CD' ,/) 

Dim =0.05 8 DO 

IF(DUMP) VRITE(3 , 20) SI , H32 , D1 , D2 ,D3,CD,DUM 
20 F0RMATC7E11 .4) 

C 

C ♦** IIITIALIZE PARAMETERS FOR THE IITEGRATIOI LOOP *** 

C 

LMHR= . TRUE . 

SEP=. FALSE. 

S=SI 

Y(1)=D2 

Y(2)=D3 

RHARGI=1 . ODO 

R2=0 . 058D0 

R3=R2 

R4=R2 

R5=R2 

R6=R2 

*E=2 

TOL=0 . 001 DO 
IID=1 
K=0 
C 

C EITER THE IITEGRATIOI LOOP *** 

C 

DO 50 1=1 , IEID 
K=K+1 
S=S+DS 

IITEGRATE EITHER THE LAMIIAR OR TURBULEIT BOUHDARY LAYER ♦** 
*** EQUATIOIS DEPEIDIIG 01 THE VALUE OF LMIR USIBG RK2 *♦* 

IF(LMSR) THEI 

CALL RK2(IE, FCIL ,SI , Y ,S) 

ELSE 

CALL RK2(IE, FCIT ,SI , Y,S) 

EBD IF 
D2-Y(l) 

D3=Y(2) 

H32=D3/D2 

CALL LIITRP(S,X,V,SPLI,I,VS,VSD,IER) 

IF(IER.EQ.l) THEI 
VRITE(3,72) S 

FORMATS II AUGLYR LIITRP RETURIED WITH Al ERROR FLAG’,/, 

» I HAD THE VALUE’,F10.6,> 01 EITRY > ) 

STOP 
EID IF 
RD2=R*VS*D2 

*♦* IF STILL LAMIIAR, CHECK FOR TRAISITIOI **♦ 

IF(LMIR) THEI 

I F( ( H32- ( DLOG ( RD2 ) >46 . 78D0) /34 . 2D0) . LE . 0 . 0) THEI 
STRAIS=S 
LMIR=. FALSE. 

EID IF 
EID IF 

IF (LMIR) THEI 
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C *** CHECK FOR LAMINAR SEPARATION IGNORE SEPARATION WHICH IS *** 

C *** PREDICTED DUE TO NOISY VELOCITY DISTRIBUTION BEFORE NOSE 

C 

IFCH32. LT. 1.51509. AND. S.GT. 0.7) GOTO 70 
C 

C *** COMPUTE LAMINAR SKIN FRICTION *♦* 

C 

CALL FAPPCH32 ,H12 , EPS ,D, KAPS) 

CFL=EPS/RD2 
CF=2 , ODO*CFL*VS*VS 
ELSE 
C 

C *** CHECK FOR TURBULENT SEPARATION *♦* 

C 

IFCH32.LT. 1.5) GOTO 70 
C 

C *♦* COMPUTE TURBULENT SKIN FRICTION *** 

C 

H12=F1 (H32) 

CFT=WSHR(H12,RD2) 

CF=2.0D0*CFT 
END IF 
D1“H12*D2 

IFCK.EQ.NPRINT. AND. DUMP) VRITE(3,20) S ( H32 , D1 , D2 , D3 , CF , RMARGN 
IFCK.EQ . NPRINT) K=0 
50 CONTINUE 

SCRIT=1 . ODO 
IF(LMNR) THEN 

IF(DUMP) WRITEC3 ,60) 

60 FORMAT (// , 101 , * LAMINAR THROUGHOUT ' , /10I , ' NO SEPARATION ' ) 

ELSE 

IF(DUMP) WRITE(3,65) STRANS 
65 FORMATC// ,101 , ' TRANSITION AT S - \F8.4, 

A /,10X,' NO SEPARATION 3 ) 

END IF 
GOTO 200 
C 

C *** IF CONTROL IS PASSED TO LINE 70 SEPARATION HAS OCCURRED AND *** 

C *** THE INTEGRATION IS SUSPENDED AT THE POINT OF SEPARATION. *** 

C 

70 SEP= . TRUE . 

SCRIPS 
IF(LMNR) THEN 

CALL FAPP(H32,H12, EPS, D, KAPS) 

CF»2.0D0*EPS/RD2*VS*VS 

Dl a H12*D2 

IF(DUMP) WRITE(3,20) S ,H32 , D1 ,D2,D3, CF, RMARGN 
IF(DUMP) VRITE(3,80) S 

80 FORMATC//, 101,' LAMINAR SEPARATION AT S - ',F8.4) 

ELSE 

H12-2.9999D0 

CF*2 .0*VSHR(H12 ,RD2) 

D1«H12*D2 

IF(DUMP) WRITE(3,20) S ,H32 , D1 ,D2,D3, CF, RMARGN 
IF(DUMP) WRITEC3 ,90) STRANS, S 
90 FORMATC//, 101,' TRANSITION AT S * ',F8.4, 

A /,10X,' TURBULENT SEPARATION AT S = ',F8.4) 

END IF 
GOTO 200 
200 RETURN 
END 


a n o o o an 
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SUBROUTIIE BODGEKIJ , XLIP, THLIP, IJS ,IJF,IS, IF) 

C 

O* **************************************************************************** 

c 

C THIS SUBROUTIIE GEIERATES AI AUGHEITOR BODY WITH VARIABLE PARAMETERS IOZZLE 
C LOCATIOI, LIP ROTATIOI POUT, LIP ROTATIOI AIGLE, AID HIXIIG CHAMBER HEIGHT. 

C 01 IIPUT ALL GEOMETRIC PARAMETERS ARE IORMALIZED BY THE BODY LEHGTH. 

C 

C *** PARAMETER DESCRIPTIOI *** 

C 

C IIPUT: 

C XJ - JET IOZZLE POSITIOI DIVIDED BY THE BODY LEIGTH 

C XLIP - LIP ROTATIOI POUT DIVIDED BY THE BODY LEIGTH 

C THLIP - LIP ROTATIOI AIGLE II RADIAHS 

C 

C OUTPUT: 

C IJS - PAIEL IIDEX OF JET START 

C BJF - PAIEL IIDEX OF JET FIIISH 

C IS - PAIEL IIDEX OF BODY IOSE START 

C IF - PAIEL IIDEX OF BODY BOSE FIIISH 

C 

C OUTPUT IS PROVIDED II THE FORM OF DATA FILES. BODY . DAT COITAIHS THE 
C SURFACE COORDIIATE PAIRS AS WELL AS THE TRAISPIRATIOI VELOCITY OVER EACH 
C PAHEL. 

C 

c* ************************************************************ ***************** 

c 

IMPLICIT REAL*8( A-H ,0-Z) 

DIMEBSIOI XP( 20) ,XTEMP(150) ,YTEMP(150) ,VITEMP(1S0) 

DIMEHSIOI XI0SE(25) , YI0SE(25) , XSPLI(lOO) , YSPLI(IOO) ,SPLI(100,3) 

LOGICAL FLAG 
REVIHD 1 
REWIHD 2 
PI-3 . 1415926 
5 F0RMATC3F1O.5) 

C 

THET A=THLI P/ 1 80 . ODO* PI 
C 

C *** DEFIIE JET BOUIDARY SLOPE TO BE 12 DEG *+* 

C 

S LO PE=DT AI C 1 2 . ODO/ 1 80 . ODO* PI ) 

C 

C 

*** COMPUTE THE COITROL STATIOI LOCATIOI ♦** 

XC0IT=IJ+0. 7DO/SLOPE 
RI=0 . 5 DO 

*** IF THE LIP ROTATIOI POUT IS LESS THAI THE IOSE RADIUS, SET *** 

*** THE LIP ROTATIOI POUT EQUAL TO THE IOSE RADIUS II ORDER TO ♦** 

*** AVOID A COITORTED BODY SHAPE *** 

IFCXLIP.LT. RI) ILIP=RI 

c 

c *♦* CHECK TO IISURE THAT THE COITROL STATIOI IS BEHIID THE LIP *** 

C **♦ ROTATIOI POUT, IF IOT PRUT ERROR MESSAGE AID SUSPEID *** 

C EXECUTIOI ♦** 

C 

IFCILIP. GT. XCOIT) THEI 

WRITEC3, 10) XJ,XUP, THLIP 
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10 FORMAT ( 1 II BODGEI XLIP WAS GREATER THAI XCOIT. PARAMETERS ’ , 

ft > 01 El TRY WERE’,/,’ IJ = \F8.4,> XLIP = \F8.4, 

k ’THLIP = 5 ,F8.4) 

STOP 
EID IF 
C 

C *** DEFIIE EXTREMITIES OF THE SYMMETRY PLAIES *** 

C 

Il*-20. 

XM=26. 

C 

C *** IIITIALIZE PARAMETERS *** 

C 

FLAG* .TRUE. 

DIST=IJ-I1 
XI= . 06 
XIM1=0 . 

C 

C *** GEIERATE A STRIBG OF COORDIIATES WHICH HAVE A RATIO OF *** 

C *** SUCCESSIVE LEIGTHS EQUAL TO l.S **♦ 

C 

DO 50 1*1,20 
IP(I)*XI 

XI=2 . 5*11-1 . 5*XIM1 
XIM1 =XP(I) 

IF(XIMl.GT.DIST) GOTO 60 
50 COITIIUE 

60 1=1 
Y=0. 

J*0. 

DO 70 1-1,1 

X»IJ-XP(I-I+1) 

J»J+1 

XTEMP(J)*X 
YTEMPC J)=Y 
VITEMP(J) =VI 
70 COITIIUE 

C 

C *** GEIERATE A SET OF COORDIIATES FOR THE JET BOUIDARY WHICH HAS THE **> 

C *** FOLLOWIIG PROPERTIES: PAIEL LEIGTHS IICREASE II A RATIO OF 1,5 AS** 1 

C *** OIE TRAVERSES AWAY FROM THE JET IOZZLE, AID AS OIE TRAVERSES AWAY** 

C *** FROM THE COITROL STATIOI MOVIIG TOWARDS THE IOZZLE. THE **' 

C *** IICREASIIG PAIEL LEIGTH IS HALTED WHEI THE LEIGTH IS **' 

C *** APPROXIMATELY 0.3. THE MIDDLE SECTIOI OF THE JET BOUIDARY HAS **< 

C *** COISTAIT I IICREMEIT OF 0.2851. **' 

C 

DX- 0.2 85 IDO 
DO 80 1*1,16 

VI* . 15*DSQRT(1 . /(X-IJ+O. 1) )+ . 2 
J*J+1 

IF(I.EQ.l) THEI 
IJS=J 
X-XJ 
Y=0 . ODO 
EID IF 

IFU.LT.I.AID.I.LE.6) THEI 
X*IJ+XP(I-1) 

Y*S LOPE* (X-XJ) 

EID IF 

IFC6.LT. I . AID. I .LE.13) THEI 
X-X+DX 



160 


APPENDIX B. COMP UTER CODE 


Y=SLOPE* Cl-XJ) 

EID IF 

IF(13.LT . I . AID . I . LE. 18) THE! 

I=XCOIT-XP(17-I) 

Y=SLOPE* (X-XJ) 

EID IF 
XTEMP( J) =X 
YTEHP( J) S Y 
VITEMPC J) =VI 
80 COITIIUE 

90 IJF=J 

C 

C *** GEBERATE THE POUTS WHICH DEFIIE THE COITROL STATIOI *** 

C 

X=XCOIT 
Y=SLOPE* (X-XJ) 

R=.5*(l.-Y) 

YC=Y+R 
DAHG=PI/8 . 

AIG=-PI/2 . 

DO 100 1=1,8 

VI=DCOS( AIG+DAHG/2 . ) 

J=J+1 

XTEMP( J) =x 
YTEMP( J)=Y 
VITEKP( J) =VI 
AIG=AIG+DAIG 
X=XCQIT+R*DCOS ( AHG) 

Y=YC+R*DSII( AIG) 

100 COITIIUE 

c 

C *♦* GEIERATE IOSE POUTS AID STORE *** 

C 

XS=RI*(1 . -DS II (THETA) ) 

x=xs 

Y=1 . +DTAI (THETA) ♦ (XLIP-X) 

XC=X+RI*DSII(THETA) 

YC=Y+RI*DCOS (THETA) 

DEL=0. 0 

I F( DABS (DSII( THETA) ) .GT . 1 . E-3) 

k DEL=2 . ODO* RH* ( DTAH( THETA) - ( 1 . ODO-DCOS (THETA) ) /DSI I(THETA) ) 

AIG=PI 

IRI=IIIT(RI*PI/0 . 1 5D0) 

DAIG=PI/DFLOAT(IRI) 

ICIRsIRI+1 
DO 150 1=1 ,ICIR 
XIOSE(I) =X 
YIOSE(I) *Y 
AIG=AIG-DAIG 
ICI=RI*DCOS ( AIG) 

ETA=RI*DSII( AIG) 

XIM1=X 

I=IC+ICI*DC0S(PI/2. -THETA) -ETA* DSIKPI/2. -THETA) 

XTMP=X 

Y=YC+XCI*DSII(PI/2 . -THETA) +ETA*DCOS (PI/2 .-THETA) 

150 COITIIUE 
C 

C *** SPLIIE FIT THE SECTIOI BETVEEI THE COITROL STATIOI AID IOSE *** 

C 


DO 105 1=1,3 

XSPLI(I) =XI0SE(4-I) 
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YSPLI(I)*YI0SE(4-I) 

105 COITIIUE 

XSPLI(4)*XLIP 
YSPLI(4) =1 . ODO 
DO 107 1*1,3 

XSPLI ( 4+1 ) =ICO IT- IP( 4-1 ) 

YSPLI(4+I)=1 .ODO 
107 COITIIUE 
ISPL=7 
IFSPL=6 

CALL ICSCCUC IS PLI , YS PLI , IS PL , S PLI , 1 00 , IER) 
IF(IER.EQ.129.0R.IER.EQ.130.0R.IER.EQ.130) THEI 
WRITE(3,109) IER 

109 FORMAT ( * II BODGEI ICSCCU RETURIED WITH THE ERROR VALUE > ,15) 

STOP 

EID IF 
C 

C *♦* GEIERATE POUTS BETVEEI THE COITROL STATIOI AID HOSE USIHG THE 

C ♦** SPLIIE FIT *** 

C 

X-XCOIT 
Y*1 . 

VI*0.0 

J=J+1 

XTEMP( J)=X 
YTEMP( J)=Y 
DO 110 1=1,3 
J=J+1 

X=XCOIT-XP(I) 

XTEMP( J)*X 

CALL IITRP(I,XSPLI, YSPLI,ISPL,SPLI,100,Y, YD, YDD,IER) 

YTEKP(J)=Y 

VITEHP(J)*VI 

110 COITIIUE 
DX-0.15D0 

IEID*IIIT((X-XS)/DX) 

DX= ( X- XS ) /DFLO AT ( I EID) 

XI*RI*DCOS( THETA) 

FLAG-. TRUE. 

L=0 

DO 120 1=1 , IEID-1 
J=J+1 
I-X-DX 
XTEMPC J)*X 

CALL IITRPCX , XSPLI , YSPLI ,ISPL,SPLI, 100 , Y, YD , YDD ,IER) 

YTEMP( J) =Y 
VITEMPC J) =VI 
IF(X.LE.XLIP) THEI 
L*L+1 

IF(L.EQ.l) THEI 
IS=J-1 

FLAG*. FALSE. 

EID IF 
EID IF 

120 COITIIUE 
C 

C *** GEIERATE THE IOISE POIITS USIIG THE STORED DATA ♦** 

C 

X*XS 

DO 151 1=1 ,ICIR 

IF(FLAG. AID. I . EQ . 1) IS=J 
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j=j+i 

ITEMPC J) -IIOSE(I) 

YTEHP(J)»YIOSE(I) 

VITEMP(J ) =VI 
151 COITIIUE 
C 

C *** GEIER1TE POUTS FROM IOSE TO IIFIIITY *** 

C 

DO 155 1=1,2 

XSPLI(I) =XI0SE(ICIR-2+I) 

YSPLI(I) =YI0SE(ICIR-2+I) 

155 COITIIUE 

Y=( 1 . +2 . ♦RI) +DTAK THETA) * ( ILIP+DEL-XTMP) 

XSPLI(3)=ITMP 
YSPLI(3)=Y 
XSPLI(4)=XLIP+DEL 
YSPLI(4)=1 . ODO+2 . ODO*RI 
DO 157 1=1,3 

YSPLK 1+4) =1 .ODO+2 .ODO*RI 
157 COITIIUE 

CALL ICSCCUC XSPLI , YSPLI , IS PL , SPLI , 1 00 , IER) 

IF(IER . EQ . 129 . OR. IER . EQ . 130 . OR. IER. EQ . 130) THEI 
WRITE(3, 1 09) IER 
STOP 
EID IF 
II=XTMP 
L=0 

160 DO 170 1=1,80 
X=XI 
J=J+1 

IF(X.LT.XCOIT-.l) THEI 

CALL I ITRP ( I , XS PLI , YS PLI , IS PL , SPLI , 1 00 , Y , YD , YDD , I ER) 
ELSE 

Y=1 . ODO+2 . 0D0*RI 
EID IF 

IFCX.GT. (XLIP+DEL) ) THEI 
L=L+1 

IF(L.EQ.l) IF=J 
EID IF 
ITEMP(J)=X 
YTEMP(J)=Y 
VITEMP(J)=VI 
XI=2.2*XI-1.2*IIM1 
XIM1=I 

IF(XI.GT.XM) GOTO 220 
170 COITIIUE 
220 IKAX=J 
C 

DO 240 1*1 ,IHAI 

WRITE- 1,5) ITEMPCI) , YTEMP(I) , VITEMP(I) 

240 COITIIUE 
C 


RETURI 

EID 
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SUBROUTIIE CHAIEL(R,XEIIT, XBEGII, XDIF, DIFSLP,DUMP1 , 

1 PEXIT,DFDRAG) 

C 

O**************** **************************************************** ********* 


SUBROUTIIE CHAIEL MARCHES THE JET EQUATIOIS FROM THE STATIOI AT WHICH 
THE OUTER VELOCITY HAS BECOME COISTAIT TO THE SHROUD EXIT. THE IIITIAL 
COIDITIOIS FOR THE TIME MARCH ARE PASSED VIA COMMOI BLOCK FROM SUBROUTIIE 
JET. SIICE THERE ARE IOV FOUR UIKIOWI QUANTITIES, THE IIITIAL COIDITIOI 
VECTOR IS EXTENDED TO 4 ELEMEITS BY IICLUDIIG AI IIITIAL VALUE FOR UO OF 1.0 

*♦* LATEST REVISIOH - 25 JAI 1987 +** 

*** PARAMETER DESCRIPTIOI *M 


IIPUT : 

R - JET PARAMETERS: UO, U1 , P, B, DRAG 

XEXIT - X COORDIIATE OF THE SHROUD EXIT 
XBEGII - I COORDIIATE TO START THE MARCHIIG 
XDIF - X COORDIIATE OF THE DIFFUSER START 
DIFSLP - DIFFUSER SLOPE 

DUMP1 - LOGICAL VARIABLE TO COITROL OUTPUT 
OUTPUT: 

PEXIT - PRESSURE AT THE SHROUD EXIT AS COMPUTED BY THE VISCOUS SOLUTIOI 
DFDRAG - PRESSURE DRAG ASSOCIATED WITH THE DIFFUSER 
R - VECTOR COITAIIIIG THE JET PARAMETERS AT THE SHROUD EXIT 


***** 


IMPLICIT REAL*8(A-H,0-Z) 

LOGICAL DUMP1 

DIMEISIQI C(24) ,W(5 ,9) , R(5) ,RD<5) 

COMMOI /DIF/ XD,DS 
EXTERNAL FCI2 

XD=IDIF 

DS=DIFSLP 

PI =3 . 14159265D0 
ALP=DL0G(2 . ODO) 

M-5 

MW=5 

TOL-1 . D-3 
I ID-1 

UO-R(l) 

U1-RC2) 

P- R(3) 

B= R(4) 

H-l . ODO 

PSTART-P 

HSTART-H 

ETAH*DSQRT(ALP)*H/B 

RMDO T1 =B/ SQ RT ( ALP) * ( ETAH* UO+DSQ RT ( PI ) /2 . ODO*DERF ( ET AH ) *U1 ) 
RMJ1-B/SQRT(ALP)*(U0**2*ETAH+DSQRT(PI)*U0*U1*DERF(ETAH) + 

1 0. 5DO*DSQRT(PI/2 . ODO) *U1**2*DERF(DSQRT(2 . ODO) *ETAH)) + 

2 P*H 

*** PRUT HEADERS ♦** 
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IF(DUMPl) THE! 

REWIIDC12) 

VRITE(12 , 50) RMJ1 , RMD0T1 

50 F0RHAT(/,25X, » JET II CHAIIEL SOLUTIOI \/, 

1 > IIITIAL JET MOMEITUM = >,F10.5,> IIITIAL MASS - \ 

2 F10.5) 

VRITEC12 , 55) 

55 FORMATC/ , * X UO ,UODOT U1,U1D0T P,PDOT>, 

1 J B , BOOT * ) 

EID IF 

C 

DX=0 . 25DO 

DIST=XEXIT-XBEGII 

■PTS»IIIT(DIST/DX) 

DX=DIST/DFLO AT ( IPTS ) 

X=XBEGII 

C 

C ♦ *♦ MARCH THE VISCOUS SOLUTIOI *** 

C 

DO 1=1, IPTS 
XEID=X+DX 

CALL DVERK(M,FCI2 1 I,R,XEHD,T0L,IHD,C,MV,W > IER) 

C 

IF(DUMPl) THEI 

CALL FCI2 (M, X ,R, RD) 

WRITEC 12 , 60) X, (R( J) , J=1 ,4) ,1 , (RD( J) , J=1 , 4) 

60 FORMAT (5F11 . 5 ,/,5Fll . 5 ,/) 

EID IF 

C 

EID DO 
C 

C *** DEFIIE THE EXIT PRESSURE ♦ ** 

C 

P=R(3) 

H=HSTART+(X“XDIF) *DIFSLP 
PEXIT=P 

DFDRAG=R(5)-(P-PSTART)*HSTART 

C 

U0=R(1 ) 

U1=R(2) 

B= R(4) 

ETAH=DSQRT( ALP) *H/B 

RMDOT=B/SQRT( ALP)* (ETAH*U0+DSQRT(PI)/2 . 0D0*DERF(ETAH)*U1) 
RMJ=B/SQRT(ALP)*(U0**2*ETAH+DSQRT(PI)*U0*U1*DERF(ETAH)+ 

1 0. 5DO*DSQRT(PI/2 . ODO) *U1**2*DERF(DSQRT(2 . ODO) *ETAH) ) + 

2 P*HSTART+DFDRAG 
C 

IF(DUMPl) THEI 

WRITE(12 , 70) RMJ ,RMDOT 

70 FORMAK } FIIAL MOMEITUM = J ,F10.5, » FIIAL MASS = \F10.5) 

EID IF 
C 

RETURI 

EID 


ooonooooooooonoo 
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SUBR0UTI1E FAPP( H32 , H12 , EPS , D , KAPS) 

C 

(>*****♦ ***************** ******************************* ************** ******** 


THIS SUBROUTIIE COMPUTES THE LOCAL SKII FRICTIOI COEFFICIEST (EPS) , AID 
THE LOCAL DISSIPATIOI COEFFICIEIT (D) FOR THE LAMIIAR BOUIDARY EQUATIOHS. 

*** PARAMETER DESCRIPTIOI *** 


IIPUT: 

H32 - SHAPE FACTOR 

HI 2 - SHAPE FACTOR 

OUTPUT: 

EPS - LOCAL SKII FRICTIOI COEFFICIEIT 

D - LOCAL DISSIPATIOI COEFFICIEIT 

KAPS - LAMIIAR SEPARATION PARAMETER. KAPS=1 FOR ATTACHED FLOW AID 
KAPS=0 FOR SEPARATED FLOW 

O****** ************************************************ *********** *********** 

C 

IMPLICIT REAL*8( A-H ,0-Z) 

KAPS*1 

D=7.853976DO-10.26O551D0*H32+3.418898*H32*H32 
IFCH32-1 . 51509D0) 10, 20, 30 
10 KAPS =0 

RETURI 

20 HI 2*4 . 02922D0- ( 583 . 60182D0-724 . 5591 6D0*H32+227 . 1 822D0 

A *H32*H32)*DSQRT(H32-1 .515O9D0) 

EPS=2 . 512589DO-1 . 686095D0*H1 2+0 . 391541*H12*H12-0 . 031729*H12**3 . DO 
RETURI 

30 IFCH32-1 . 57258D0)21 ,21,40 

21 GOTO 20 

40 H12*79 . 87084 5 DO- 89 . 582142DO+H32+25 . 715786D0*H32*H32 

EPS=1. 372391-4. 226253*H32+2.221687*H32*H32 
RETURI 
EID 


o o 
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SUBROUTIIE FCI1 (I,I,S ,SD) 

C 

c** ****♦********************************♦********************+****** ********** 

c 

C THIS SUBROUTIIE COMPUTES THE DERIVATIVES OF THE JET PARAMETERS FOR USE 
C II MARCHIIG OF THE VISCOUS SOLUTIOI VITHII THE VISCOUS-IIVISCID IITERACTIOH 
C REGIOI . THE DERIVATIVE OF UO IS FOUID FROM THE IBVISCID SOLUTIOI VIA A 
C LIIEAR SPUIE FIT. 

*♦* LATEST REVISIOI : - 24 JAI 1987 *** 

C 

C *** PARAMETER DESCRIPTION *** 

C 

C IMPUT: 

Cl- I UMBER OF DIFFERENTIAL EQUATIOIS II THE SYSTEM, 

Cl- CARTESIAI COQRDIIATE 

C S - VECTOR COITAIIIIG THE VALUES OF UO, U1 , P AID B AT THE STATION I 
C SD - VECTOR COITAIIIIG THE DERIVATIVE VALUES OF UO, U1 , P AID B AT THE 
C STATIOI I 

C 

*************************************************************************** 

c 

IMPLICIT REAL*8( A-H ,0~Z) 

DIMEISIOI S(4),SD(4),C(2,2) ,VK(2,2) ,RHS(2) 

COMMOI /AREA1/ IE(SO) , UE(50) ,SPL(50, 3) , IJ 
C 

C *** FIND THE DERIVATIVE OF UO THROUGH IITERPOLATIOI OF THE *** 

C SPLINE FIT +** 

C 

CALL IITRPCl , XE,UE , IJ ,SPL, 50,UO,UODOT,D2 ,IER) 

IF(IER.IE.O) THEI 
¥RITE(3 , 10) I 

10 FORMAT ( * II FCI1 IITRP RETURIED VITH AN ERROR FLAG 1 ,/, 

ft ’ X HAD THE VALUE 5 , F10 . 6, ’ 01 ENTRY’ ) 

STOP 
EID IF 
C 

C *** COMPUTE THE DERIVATIVES OF THE PARAMETERS UO, U1 , B, AID P *♦* 

C 

SQRT2=DSQRT(2 . ODO) 

ALPHA=DSQRT ( DLOG ( 2 . ODO) ) 

RK=0 . 0283 
C 

U0=S(1) 

U1=S (2) 

P -S ( 3) 

B =S (4) 

C 

C(l,l)*U0+SqRT2*Ul 

C(1 ,2)*Ul/B*(U0+SqRT2/2 .ODO^Ul) 

C(2 ,1) *SqRT2*U0**2+3 ,ODO*UO*Ul+DSqRT(l .5DO)*Ul+*2 
C(2 ,2) 3 U1/B* (SqRT2*U0**2+l . 5DO*UO*U1 + 

1 DSQRTC2 . 0D0/3 . 0D0)/2 . 0D0*U1 **2) 

Dl“2 . ODO*U1 

D2-U1* (2 . ODO^SqRT2*UO+l .5D0*U1) 

T1=0 . ODO 

T2=- RR* ( ALPH A* * 2 ) * (U1 * * 3) /B 
RHS(1)=T1-D1*UODOT 
RHS (2) =T2-D2*UODOT 
C 

CALL SIMq (C, VK, RHS ,2,2, IER) 
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SD(1)=UODOT 
SD(2)=RHS(1) 
SD(3)=-U0*U0D0T 
SD(4)*RHS (2) 

RETURI 

EID 


o o 
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SUBROUTIIE FCI2 (I, X ,R, RD) 


C 

C THIS SUBROUTIIE COMPUTES THE DERIVATIVES OF THE JET PARAMETERS UO , U1 , 

C B, AID P FOR USE II MARCHIIG THE VISCOUS SOLUTIOI II THE MIXIIG CHAIEL, 

C DOVHSTREAM OF THE VISCOUS-IIVISCID IITERACTIOI ZOIE. 

C 

C LATEST REVISIOI - 26 JAI 1987 *** 

C 

C *** PARAMETER DESCRIPTIOI *** 

C 

C IIPUT : 

C I - I UMBER OF DIFFEREITIAL EQUATIOIS 
C X - CARTESIAI COORDIIATE 

C R - VECTOR COITAIIIIG THE VALUES OF UO, Ul, P, B, AID DRAG AT THE STATIC! X 
C RD - VECTOR COITAIIIIG THE DERIVATIVE VALUES OF UO , Ul , P, B, AHD DRAG 
C AT THE STATIOH X 

C 

C* ************************ **************************************************** 

C 

IMPLICIT REAL*8( A~H ,0-Z) 

DIMEISIOI R(5) , RD(5) , A(4 , 4) ,T(4) ,VX<4,4) 

COMMOI /DIF/ IDIF, DIFSLP 
C 

IF(X.GT.XDIF) THE! 

H=1 . ODO+CX-XDIF) * DIFSLP 
HD=DIFSLP 
ELSE 

HD=0 . ODO 
H=1 . ODO 
EHD IF 
C 

UO=R(l) 

U1=R(2) 

P =R(3) 

B= R(4) 

C 

CALL KATRIX(U0,U1 , B,H ,HD, A, T) 

CALL SIMQCA, VK,T,4 ,4, IER) 

C 

RD(1)*T(1) 

RD(2)=T(2) 

RD(3)=T(3) 

RDC4)=T(4) 

RD(5)*H+RD(3) 

C 

RETURI 

EID 
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SUBRQUTIIE FCJLCIE.S.Y.YD) 

C 

c*** ******************************************************************* ******* 

c 

C THIS SUBROUTIIE COMPUTES THE DERIViTIVES OF D2 AID D3 FOR THE LAMIIAR 
C BOUIDARY LAYER EQUATIONS. A CALL TO SUBROUTIIE FAPP IS IECESSARY . 

C 

C PARAMETER DESCRIPTIOI *** 

C 

C IE - IUHBER OF DIFFEREITIAL EQUATIOIS, II THIS CASE 2 
C S - SURFACE COORDINATE 

C Y - VECTOR COITAIIIIG THE VALUES OF D2 AID D3 AT THE STATIOI S 

C YD - VECTOR COITAIIIIG THE DERIVATIVE VALUES OF D2 AID D3 AT THE STATIOI S 

C 

O* *********************************************************** **************** 

C 

IMPLICIT REAL*8(A-H,0-Z) 

DIMEISIOI Y(IE),YD(IE) 

COMMOI /BLCVEL/ 1(100) f V(100) ,R 
COMMON /BLCSPLI/ SPLI(IOO),! 

D2=Y(1) 

D3*Y(2) 

H32=D3/D2 

C 

**«■ COMPUTE THE FRICTIOI AID DISSIPATIOI COEFFICIEITS 
CALL FAPP(H32,H12,EPS,D,KAPS) 

**• COMPUTE THE LOCAL SURFACE VELOCITY AID ITS DERIVATIVE *** 

♦** FROM THE LINEAR SPLIIE FIT *** 

C 

CALL LI ITRP ( S , I , V , S PLI , I , VS , VS D , I ER) 

IF(IER.EQ.l) THEN 
WRITEC3 , 71 ) S 

71 FORMATC 3 II FOIL LI ITRP RETURNED WITH AI ERROR FLAG’,/, 

ft > X HAD THE VALUE * , F10. 6 , f 01 EITRY’) 

STOP 
END IF 
RD2*R*VS*D2 
CFL=EPS/RD2 

YD(1 )=-(2 . 0D0+H12) *D2/VS*VSD + CFL 
YD(2)*-3 . 0D0*D3/VS*VSD + 2.0D0*D/RD2 
RETURI 
EID 
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APPENDIX B. COMPUTER CODE 


SUBROUTIHE FCIT(IE,S, Y,YD) 

C 

c«**** ******************************************************** **************** 

c 

C THIS SUBROUTIIE COMPUTES THE DERIVATIVES OF D2 AID D3 FOR USE II THE 
C MARCHIIG OF THE TURBULEMT BOUIDARY LAYER EQUATIOIS . 

C 

C *** PARAMETER DESCRIPTIOI *** 

C 

C ISPUT: 

C HE - IUMBER OF DIFFEREHTIAL EQUATIOIS , II THIS CASE 2 
C S - SURFACE COORDIIATE 

C Y - VECTOR COITAIIIIG THE VALUES OF D2 AID D3 AT THE STATIOI S 

C YD - VECTOR COITAIIIIG THE DERIVATIVE VALUES OF D2 AID D3 AT THE STATIOI S 

C 

O* ******************************************************************** ******* 

c 

IMPLICIT REAL*8(A-H,0-Z) 

DIMEHSIOI Y(IE) , YD (HE) 

COMMOI /BLCVEL/ X(IOO) ,V(100) ,R 
COMMOI /BLCSPLI/ SPLI(lOO),! 

C 

C *** FUICTI0I FI RETURIS H12 GIVEI H32 *** 

C 

FI ( H32 ) =H32/ (3 . 0D0*H32-4 . ODO) 

C 

C *m FUICTIOI VSHR RETURIS THE LOCAL TURBULEIT SKII FRICTIOI *** 

C *** COEFFICIEIT, GIVEI THE SHAPE FACTOR H12, AID THE REYHOLDS *** 

C *** IUMBER BASED 01 KOMEHTUM THICRIESS RD2 *** 

C 

VSHRCH12 , RD2) =0 . 0245DO* (1 . ODO-2 . O959DO*DL0GlO(H12) ) **1 . 705D0 
A /RD2**0 . 268D0 

C 

C ♦ ** FUICTIOI CDISS RETURIS THE LOCAL TURBULEIT DISSIPATIOI *♦* 

C *** COEFFICIEIT ♦ ** 

C 

CDISS ( H32 , RD2 ) = (0 . 00481 DO+0 . 0822DO* ( H32-1 . 5D0) **4 . 81 DO) 
k * ( H32/RD3) ** ( 0 . 23l7D0*H32-0 . 2664D0-0 . 87D5* (2 . 0D0-H32) **20) 

D2=Y(1 ) 

D3=Y(2) 

H32=D3/D2 
H12=F1 (H32) 

C 

C *** TO AVOID SIIGULARITIES AT SEPARATIOI, PUT BARRIERS 01 *** 

C *** H32 AID HI 2 *** 

C 

IFCH32.LT.1.5) H32=1.51 
IFCH12.GT.3.0) H12=2 . 99 
C 

C *** FI ID THE LOCAL SURFACE VELOCITY AID ITS DERIVATIVE THROUGH *** 

C *** USE OF THE LIIEAR SPLIIE FIT *** 

C 

CALL LIITRP(S ,X, V,SPLI, I, VS ,VSD, IER) 

IF(IER.EQ.l) THEI 
VRITE(3,71) S 

71 FORMAT( } II FCIT LIITRP RETURIED WITH AI ERROR FLAG 1 ,/, 

k i X HAD THE VALUE 3 ,F10. 6 , * 01 EITRY 3 ) 

STOP 
EID IF 
RD2*R*VS*D2 
RD3=R*VS*D3 
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CT=WSHR(H12 , RD2) 

CD=CDISS (H32 ,RD3) 

YD(l )*- (2 . ODO+H12) *D2/VS*VSD + CT 
YD(2)-“3 . 0D0*Y(2) /VS*VSD + 2.0D0*CD 
RETURI 
EID 
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APPENDIX B. COMPUTER CODE 


SUBROUTIIE FRESTH(U10,BO,UOO,GiHHi,VO) 

C 

c*** ************* ****************************************** ******************** 
c * 

C SUBROUTIIE FRESTH COMPUTES THE FREE STREAM VELOCITY tfHEI GIVEI THE * 

C PARAMETER GAMMA AID THE PRIMARY JET PARAMETERS. ♦ 

C ♦ 

C *♦* LATEST REVISIOI - 23 APRIL 1987 *** * 

C * 

C *♦* PARAMETER DESCRIPTIOI *** * 

C IIPUT : ♦ 

C U10 - IIITIAL JET EXCESS VELOCITY * 

C BO - IIITIAL JET HALF-tfIDTH * 

C UOO - IIITIAL JET EITERIAL VELOCITY * 

C GAMMA - IOI-DIMEISIOIAL FREE SPEED PARAMETER * 

C * 

C VO - FREE STREAM VELOCITY * 

C * 

O ********************************************** ******************************* 

C 

IMPLICIT REAL*8 ( A- H , 0 -Z) 

C 

ALP=DL0G(2 . ODO) 

PI=3 . 141S926D0 
C 

C *** COMPUTE THE PRIMARY JET MOMEITUM FLUX. **♦ 

C 

RMJ=DSQRT(PI/ ALP) *U00*U10^B0+0 . 5DO*DSQRT(PI/2 . ODO/ ALP) *U10**2*B0 
C 

C *** COMPUTE THE FREE STREAM VELOCITY ♦** 

C 

V0=GAMMA*DSQRT(RMJ/2 . ODO) 

C 

RETURI 

EID 
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SUBROUTIIE GETPRMCXJ , XLIP, THLIP, XEXIT, XDIF .DIFSLP^AMMA, UlO, DUMP1 , 

1 BLAYER, RE) 

C 

c 

C GETPRM READS PARAMETER VALUES FROM A DATA FILE WHICH IS ASSIGJED UIIT 4 
C 

C *** LATEST REVISIOI - 22 APR 1987 *** 

C 

C *** PARAMETER DESCRIPTIOI *** 

C OUTPUT: 

C XJ - X COORDIIATE OF THE JET I0Z2LE 
C XLIP - X COORDIIATE OF THE SHROUD LIP 
C THLIP - SHROUD LIP ROTATIOI AIGLE (II DEGREES) 

C XEIIT - I COORDIIATE OF THE SHROUD EXIT 
C XDIF - X COORDIIATE OF THE DIFFUSER START 

C DIFSLP - DIFFUSER SLOPE 
C GAMMA - FREE-STREAM SPEED PARAMETER 
C UlO - JET IIITIAL VELOCITY 
C DUHP1 - OUTPUT COITROL 

C BLAYER - BOUIDARY LAYER COMPUTATIOI COITROL PARAMETER 
C RE - REYIOLDS IUMBER BASED 01 JET THRUST 
C 

C************** ******************************************************** ******** 

c 

IMPLICIT REAL*8(A-H > 0-Z) 

LOGICAL DUMP1, BLAYER 
C 

READC4,*) XJ 
READ(4,*) XLIP 
READ<4,*) THLIP 
READC4,*) XEIIT 
READ(4 ,*) XDIF 
READC4,*) DIFSLP 
READ(4,*) GAMMA 
READC4,*) UlO 
READ(4,*) DUMP1 
READ(4 ,*) BLAYER 
READ(4,^) RE 
C 

RETURJ 

EID 
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APPENDIX B. COMPUTER CODE 


SUBROUTIIE JETClJS , IJF.XJET, YJET,UJET, VJET,IJET,U10,B0,VI,I, 

1 DUMP1 , ICALL , IE*D , R , RES ) 

C 

O* ******************************************************************** ******** 

c 

C SUBROUTIIE JET PERFORMS THE VISCOUS CALCULATIOI VITHII THE VISCOUS- 
C ISVISCID IITERACTIOI REGIOI. THE DERIVATIVE OF UO IS FOUID FROM THE 
C IIVISCID SOLUTIOI VIA A QUASI-HERMITE SPLIIE FIT, AID IS USED AS A FORCIHG 
TERM II THE VISCOUS SOLUTIOI. 

*** LATEST REVISIOI - 23 APR 1987 *** 

♦ ♦* PARAMETER DESCRIPTIOI *** 

C IIPUT: 

C US - PAIEL IIDEI OF JET BOUIDARY START 

C IJF - PAIEL IIDEI OF JET BOUIDARY FIIISH 

C XJET - VECTOR OF I COORDIIATES ALOIG THE JET BOUIDARY 

C YJET - VECTOR OF Y COORDIIATES ALOIG THE JET BOUIDARY 

C UJET - VECTOR OF HORIZOITAL VELOCITY ALOIG THE JET BOUIDARY 
C VJET - VECTOR OF VERTICAL VELOCITY ALOIG THE JET BOUIDARY 
C IJET - IUMBER OF POUTS ALOIG THE JET BOUIDARY 
C UlO - JET IIITIAL CEITERLIIE VELOCITY 

C BO - JET IIITIAL VELOCITY HALF-WIDTH 

C VI VECTOR COITAIIIIG THE IORMAL VELOCITIES TO THE PAIELS ALOIG THE JET 
C BOUIDARY II THE VISCOUS-IIVISCID IITERACTIOI REGIOI 

C I - IUMBER OF PAIELS 

C B.. .PI -LOGICAL VARIABLE FOR OUTPUT COITROL 

C ICALL -IIDEI TO KEEP TRACK OF THE SUCCESSIVE CALLS TO JET 

C 

C OUTPUT: 

C VI UPDATED IORMAL VELOCITY VECTOR 

C XEHD - X STATIOI AT WHICH THE VISCOUS-IIVISCID MATCHIIG EIDS 

C R - VECTOR COITAIIIIG THE VALUES OF THE JET PARAMETERS AT THE EHD OF 

C THE VISCOUS-IIVISCID MATCHIIG REGIOI 

C RES - MAXIMUM RESIDUAL II THE VISCOUS-IIVISCID MATCHIIG 

C 

O** ********************************* ***************************************** 

c 

IMPLICIT REAL*8( A-H ,0-Z) 

LOGICAL DUMP1 

DIMEISIOI XJET(IJET) , YJET(IJET) ,UJET(IJET) , VJET(IJET) , VI(I) , 

1 W(4,9),C(24),S(4),SD(4) ,SPLI(S0,3) ,R(5) 

DIMEISIOI XTHPC300) ,YTMP(300) 

COMMOI /AREA1/ IE(50) ,UE(50) ,SPL(S0,3) , IJ 
EITERIAL FCI1 
C 

PI*3 . 141592DO 
ALP*DLOG ( 2 . ODO) 

M*4 

MW*4 

TOL-1 . D-4 
IID=1 
C 

C *** PRUT HEADERS *** 

C 

IF(DUMPl) THEI 
REWIID 9 
REWIID 10 
WRITE(9,45) 

45 FORMAT(/, 25X , * JET VELOCITIES O 
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VRITEC9, 40) 





40 

FORMATC/, * 

X Y 

UIIV 

VIIV 

VVIS 


t » 

VIOLD VIIEW 

RES 1 ) 




VRITEClO, 50) 





50 

FORMATC/ ,251, 3 
MRITEClO , 55) 

1 JET SOLUTIOI O 




55 

FORMATC /, 7 

I UO,UODOT 

U1,U1D0T 

P, PDOT J , 



1 > B,BDOT>) 

EID IF 
C 

C *** SPLIIE FIT THE HORIZOITAL COMPOIEIT OF IIVISCID VELOCITY ♦** 

C *** ALOIG THE JET BOUNDARY *** 

C 

CALL IQHSCUCXJET ,UJET , IJET , SPLI,50,IER) 

IF(IER.IE.O) THEI 
WRITEC3 , 90) IER 

90 FORMATC 5 AFTER CALL TO SPLIIE IER HAS THE ERROR VALUE >,I5) 

STOP 
ESD IF 
C 

C *** DUPLICATE THE IIVISCID VELOCITY DATA SO THAT IT MAY BE *** 

C SEIT II COMMOI 

C 

IJ=IJET 
DO 1=1, IJET 

XE(I)*IJET(I) 

UE(I)=UJET(I) 

SPLCI , 1 ) =SPLI(I ,1 ) 

SPLCI , 2) =SPLI(I ,2) 

SPL(I , 3) =SPLI(I ,3) 

EID DO 
C 

C ♦** DEFIIE IIITIAL VALUES OF THE JET PARAMETERS *** 

C *♦* S(l) < — UO, S (2) <--Ul , SOX— P, S(4)< — B *** 

C 

U00=UJET(2) 

P0=0 . ODO 
C 

S(1)=U00 
S (2) *U10 
S (3) *P0 
S (4) =B0 
C 

RES =0.0 
C 

C *** El TER LOOP TO MARCH THE VISCOUS EqUATIOIS 

C 

X=XJET(2) - . 001 DO 
DO 10 J*2,IJET 
XEID*IJET(J) 

CALL DVERKCM,FCI1,I,S,XEID,T0L,IID,C,HV,V,IER) 

IFCIID.LT.O. OR. IER.GT.O) THEI 
WRITE(3,150) IID,IER 

150 FORMATC/ , J II JET IID* M5,» IER* >,I5,/) 

STOP 
EID IF 
C 

C *** OBTAII THE LOCAL DERIVATIVE VALUES OF THE JET PARAMETERS *** 

C 

CALL FCI1(M,XEID,S ,SD) 

C 


iO 



o o 


176 


APPENDIX B. COMPUTER CODE 


C *♦* COMPUTE THE LOCAL IIVISCID VELOCITY AID ITS DERIVATIVE *♦* 

C 

CALL IITRP (IE VD , X J ET , UJ ET , I JET , S PLI , 5 0 , UO , UODG T , D2 , I ER) 

IF(IER.EQ.l) THEI 
HRITEC3.12) XEID 

12 F0RMAT( * II JET IITRP RETURIED WITH AI ERROR FLAG ’ , / , 

ft 5 X HAD THE VALUED, F10. 6, > 01 EITRY’) 

STOP 
EID IF 
C 

C *** COMPUTE THE VERTICAL COMPOIEIT OF VELOCITY AT THE JET *** 

C **♦ BO UVDARY FROM THE VISCOUS SOLUTIOI **«■ 

C 

VVIS=V(S,SD,YJET(J>) 

C 

*** COMPUTE THE LOCAL RESIDUAL BY COMPARIIG THE VISCOUS AID *** 
*** IIVISCID VERTICAL COMPOHEHTS OF VELOCITY ALOHG THE JET *** 
C *♦* BO UVDARY *** 

C 

RR=VVIS-VJET( J) 

I F ( DABS ( RR) . GT . RES ) RES=DABS(RR) 

C 

C *** MAKE A CORRECTIOV TO THE LOCAL EVTRAIIMEIT VELOCITY *** 

C 

Wl=l . ODO-0 . 7D0/ DFLO AT (V JET-2 ) *DFL0AT(J-2) 

JJ=IJS-1+J 
VHEW= VV(JJ)-W1*RR 
C 

IF(DUMPl) THEI 

WRITE(9, 60) XJET(J) ,YJET(J) ,UJET(J) ,VJET(J) , VVIS.VI(JJ) , 

1 VIEW, RR 

60 F0RMATC8F1O.5) 

WRITEClO, 65) IJET(J) ,S(1) ,S(2) ,S(3) ,S(4) f 
1 XJETC J) ,SD(1) , SD(2) ,SD(3) ,SD(4) 

65 FORMAT(5F10.5,/,5F10.5,/) 

EHD IF 
C 

C *** MAKE FIRST PAVEL SUCTIOI EQUAL TO THE SECOID TO EVHAICE *** 

C STABILITY 

C 

IFO.EQ.2) VI(IJS) =VIEV 
VS(VJS-1+J)=VIEW 

9 COHTIVUE 

10 COITIIUE 
C 

REVIID 1 
DO 1*1,1 

READCl ,*) ITHP( I ) , YTMP( I ) 

EVD DO 
REVIVD 1 
DO 1=1,1 

WRITE(1 ,11) XTMP(I) ,YTHP(I) ,VI(I) 

11 F0RMATC3F1O. 5) 

EVD DO 

C 

C *** IVITIALIZE PARAMETERS FOR THE CHAIIEL SOLUTIOI *** 

C 

R(1 ) =S (1) 

R(2) =S (2) 

R(3) =S (3) 
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R(4)=S(4) 
R(5) =0 . 0D0 

RETURI 

EID 
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APPENDIX B. COMPUTER CODE 


SUBROUTIIE JETCOFOJS ,IJF,ICP, YCP, ALPHA,D,IID1 , IID2 ,PD, PE, PF , 

1 PG,PH,PPI,C,VORK,A,B,AIUT,BHAT,I, 

2 XJET, YJET,IJET,AJET,BJET) 

C 

£****« **************************************************************** ******** 

c 

C SUBROUTIIE JETCOF COMPUTES THE IIFLUEICE COEFFICXEITS FOR THE MATCHING 
C POIHTS ALOIG THE JET BOUIDARY . 

C 

C LATEST REVISIOI 23 APR 1987 
C 

C *♦* PARAMETER DESCRIPTIOI *** 

C 

C ISPUT: 

C IJS - PAIEL IUMBER OF THE BEGIIIIIG OF THE JET BOUIDARY 

C HJF - PAIEL IUMBER OF THE EID OF THE JET BOUIDARY 

C XCP - VECTOR OF COITROL POUT I COORDINATES 

C YCP - VECTOR OF COITROL POUT Y COORDINATES 

C ALPHA - VECTOR COITAIIIIG THE SURFACE SLOPES 

CD - VECTOR COITAIIIIG THE PAIEL LEIGTHS 

C IID1 - VECTOR OF IIDEI OF PAIEL ADJOIIIIG TO THE LEFT 

C ISD2 - VECTOR OF INDEX OF PAIEL ADJOIIIIG TO THE RIGHT 

C PD..PPI- SOURCE PARABOLIC FIT COEFFICIENTS 
C C - VEC"R OF SURFACE CURVATURE COEFFICIENTS 

C WORK - WORK SPACE VECTOR 

C A - WORK SPACE VECTOR 

C B - WORK SPACE VECTOR 

C AMAT - MATRIX OF I COHPOIEIT IIDUCED VELOCITIES 

C BMAT - MATRIX OF Y COMPONENT INDUCED VELOCITIES 

Cl - IUMBER OF PAIELS 

C 

C OUTPUT: 

C XJET - VECTOR OF X COORDIIATES OF THE COITROL POUTS ALONG THE BOUNDARY 

C YJET - VECTOR OF Y COORDIIATES OF THE COITROL POUTS ALONG THE BOUNDARY 

C NJET - IUMBER OF POUTS ALOIG THE JET BOUIDARY 

C AJET - MATRIX OF U-VELOCITY IIFLUEICE CQEFFICIEITS FOR THE JET BOUIDARY 

C BJET - MATRIX OF V-VELOCITY IIFLUEICE COEFFICIENTS FOR THE JET BOUNDARY 

C 

O* ************************** ************************************** *********** 

C 

IMPLICIT REAL*8(A-H,0-Z) 

DIMEISIOV XCP (I) ,YCP(I) ,ALPHA(I) ,D(I) ,PD(I) ,PE(I) ,PF(I) ,PG(I) , 

1 PH(I) ,PPI(I) ,C(I) ,IID1(I) ,IID2(I) ,WORX(8*I) ,A(I) ,B(I) B 

2 IJET(IJET) , YJET(IJET) , AJET(IJET,I) ,BJET(IJET,I) , 

3 AMAT(I,I),BMAT(I,I) 

C 

C 

C *** CALCULATE AID STORE THE IIFLUEICE COEFFICIEITS FOR THE **♦ 

C *** JET BOUIDARY *** 

C 

DO I=IJS,IJF 
II=I-IJS+1 
X=XCP(I) 

Y*YCP(I) 

XJET(II) *X 
YJET(II) *Y 
C 

DO J=1,I 

AJET(II , J)=AMAT(I , J) 

BJET (II , J)=BMAT(I , J) 

EID DO 
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c 

c 

c 


c 


c 


c 


**♦ COMPUTE THE VELOCITY iT A POUT SLIGHTLY ABOVE THE JET *** 

*** BO UVDARY VHEI IEAR THE COITROL STATIOV TO AVOID THE SPIKE 
*♦* II THE VELOCITY FIELD CAUSED BY THE CURVATURE DISCOITIVUITY ♦** 
*** AT THE COITROL STATIOI. **♦ 

IF(I .GT . (IJF-5) ) THEI 

YH=Y+(X-XCP(IJF“5) )*0. 15DO 

CALL IIFLCE( I , YH , XCP , YCP , ALPHA , D,IID1 , IID2 , PD , PE , 

1 PF , PG , PH , PPI ,C,VORX,I,A,B) 

DO J*1,I 

AJET(II , J)*A(J) 

EID DO 
EID IF 

EID DO 

RETURI 

EID 
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APPENDIX B. COMPUTER CODE 


SUBROUTIIE JETVELC AJET, BJET,IJET ,Q,I, VO, BETA ,UJET , VJET,UOO,PATM) 

C 

0 ***********«***************************************************************** 

c * 

C SUBROUTIIE VLCJET COMPUTES VALUES OF THE VELOCITY COMPOIEITS AT THE * 
C JET BOUIDARY * 

C * 

C LATEST REVISIOI 23 APR 1986 * 

C * 

C *** PARAMETER DESCRIPTION *♦* * 

* 

IIPUT : * 

C A JET - IIFLUEICE COEFFICIENTS FOR U-VELOCITY ALONG THE JET BOUNDARY * 

C BJET - IIFLUEICE COEFFICIENTS FOR V-VELOCITY ALONG THE JET BOUIDARY * 

C NJET “ NUMBER OF PAIELS ALONG THE JET BOUIDARY * 

C Q - VECTOR OF SOURCE STREIGTHS * 

C B - NUMBER OF PANELS * 

C VO - FREE STREAM SPEED ♦ 

C BETA - ANGLE OF ATTACK * 

C * 

C OUTPUT: * 

C UJET - VECTOR OF HORIZONTAL COMPONENT OF VELOCITY ALONG THE JET BOUNDARY * 

C VJET - VECTOR OF VERTICAL COMPONENT OF VELOCITY ALONG THE JET BOUNDARY * 

C UOO - UO COMPONENT OF VELOCITY AT THE JET NOZZLE * 

C PATM - UPSTREAM AMBIENT PRESSURE * 

C * 

C** ************************************************************** ************** 

c 

IMPLICIT REAL*8CA-H,0-Z) 

DIMENSION AJ ETC I JET, I) , BJET (I JET, I) ,Q(I) ,UJET(NJET) ,VJET(NJET) 

C 

C *** COMPUTE THE VELOCITY COMPONENTS ALONG THE JET BOUIDARY *** 

C 

DO 1=1, NJET 
SUM1=0 . ODO 
SUM2=0 . ODO 
DO J=1 , I 

SUM1=SUM1+AJET(I , J)*Q( J) 

SUM2=SUM2+BJET(I, J)*Q(J) 

END DO 

UJET(I) =VO*DCOS (BETA)+SUM1 
VJET(I) =V0*DSII(BETA)+SUM2 
END DO 
C 

C *** CALCULATE THE UPSTREAM ATMOSPHERIC PRESSURE ♦♦♦ 

C 

PATM=0 . 5DO* (UJET(2) **2-V0**2) 

C 

UOO=UJET(2) 

C 

RETURN 

END 
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SUBR0UH IE HiTRI I (UO , U1 , B , H , HDOT , A , T) 

C 

C** ************************************************************** ************** 

c 

C SUBRQUTIIE MATRIX COMPUTES THE MATRIX ELEMEITS AID RIGHT HAID SIDE OF THE 
C EQUATIOIS FOR THE DERIVATIVES OF THE JET PARAMETERS. 

C 

C *** LATEST REVISIOI - 26 JAI 1987 ♦** 

**♦ PARAMETER DESCRIPTIOI *** 

IIPUT : 

UO - JET EXTERIAL VELOCITY 

U1 - JET CEITERLIIE EXCESS VELOCITY 

B - JET EXCESS VELOCITY HALF-WIDTH 

H - CBAIIEL HALF-WIDTH 

HDOT - CHAIIEL SLOPE 

OUTPUT: 

A - MATRIX ELEMEITS 

C T - RIGHT HAID SIDE VECTOR 

C 

C* ***************************************************************** ************ 

c 

IMPLICIT REAL*8(A-H,0-Z) 

DIKEISIOI A(4,4),T(4) 

C 

ALP = DS Q RT ( DLO G ( 2 . ODO) ) 

PI =3 . 14159265DO 
C 

ETAH=ALP*H/B 

ETAH2=ETAH**2 

ETAH3=ETAH**3 

E1*DEXP(-ETAH2) 

E2*DEXP(-2 . ODO*ETAH2) 

Fl-DSQRTCPI) /2 . ODO*DERF(ETAH) 

F2-DSQRTCPI/2. ODO)/2 .ODO*DERF(DSQRT(2 .ODO)*ETAH) 

UH=U0+U1*E1 

AUX1 *UO-UH/ 2 . ODO 

AUX2=F1-ETAH*E1 

AUX3=F2-ETAH*E2 

AUX4=1 . ODO- El 

AUX5-1 . ODO-E2 

AUX6=(2 . ODO*AUX2-Fl) *F1 

AUX7=(1 . ODO+ETAH2) *E1 

RK-0.0283D0 

C5-2 . 0D0*RK*(ALP**2)*(U1**2)/B 
C 

A(1,1)«AUI1*ETAH+U1*F1 
A(1,2)«AUX1*F1+U1*F2 
A(1 , 3) *0 . 5D0*ETAH 

A(1 ,4)*(Ul/B)*(AUXl*AUX2+0. 5D0*U1*AUI3) 

A(2 , 1) -U0*ETAH2+U1* (3 . 0D0*AUX4-2 . 0D0*ETAH2*E1 ) 

A (2 , 2) -UO* AUX4+U1* ( AUX5+AUX6) 

A(2,3)-ETAH2 

A(2,4)-(U1/B)*(2. 0D0*U0*(1 . ODO-AUX7)+U1*(AUI6+0. SD0*AUI5) ) 

A (3 , 1 ) -1 . 0D0/3 . ODO*UO*ETAH3+U1 * (2 . ODO* AUX2 - ET AH3* El ) 

A(3 , 2) -0 . 5DO*UO*AUX2+U1*(0. 5D0*AUX3+F2-AUI7*F1) 

A (3 , 3) -1 . 0D0/3 . 0D0*ETAH3 
A(3,4)*(U1/B)*(U0* (1 .5D0*AUI2-ETAH3*E1)+ 

1 U1 * (- AUX7*Fl+F2+0 . 25D0*AUX3) ) 

A(4 , 1) -ETAH 
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A(4 , 2) =F1 

A(4 , 3) =0 , ODO 

A(4 , 4) =(U1/B)*AUX2 

T(l) =O.ODO 

T(2) =C5*AUI4 

T(3) =C5*AUI2 

T(4) -- (ALP/B)*UH*HD0T 

RETURS 

EHD 
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SUBROUTI IE PERFRMC R , HEII T , ALPHA , D , AMAT , BHAT , Q , V , VO , BETA , 

1 U1 0 , U00 , BO , DFDRAG , IS , IF , PHI ) 

C 

C***************** ********************************************** ************** 


THIS SUBROUTIIE COMPUTES THE THRUST AUGMEITATIOI RATIO II TWO 
IIDEPEIDEIT CALCULATIOIS ; BY IITEGRATIOI OF THE SURFACE PRESSURES, AID BY A 
COITROL VOLUME AIALYSIS USIIG THE BLASIUS MOMEITUH THEOREM. A SUMMARY OF 
THE PERFORMAICE PARAMETERS ARE WRITTEI TO THE OUTPUT FILE OUT. DAT. 

*♦* LATEST REVISIOI - 23 APR 1987 *** 

*** PARAMETER DESCRIPTIOI *♦* 


IIPUT: 

R - VECTOR COITAIIIIG THE JET PARAMETERS AT THE SHROUD EXIT 

HEXIT - CHASIEL EXIT HALF WIDTH 

ALPHA - VECTOR OF PAIEL ORIEITATIOI AIGLES 

D - VECTOR OF PAIEL LEIGTHS 

AMAT - MATRIX OF X COHPOIEIT IIDUCED VELOCITIES 

BMAT - MATRIX OF Y COHPOIEIT IIDUCED VELOCITIES 

Q - VECTOR COITAIIIIG THE SOURCE STREIGTHS 

I - I UMBER OF PAIELS 

VO - FREE-STREAM SPEED 

BETA - AIGLE OF ATTACK 

UlO - JET IIITIAL CEITERLIIE VELOCITY 

UOO - IIITIAL UO COHPOIEIT OF VELOCITY 

BO - IIITIAL JET VELOCITY HALF-WIDTH 

DFDRAG- PRESSURE DRAG ASSOCIATED WITH THE DIFFUSER 

IS - PAIEL IIDEI OF THE SHROUD I0SE START 

IF - PAIEL IIDEX OF THE SHROUD I0SE FIIISH 


OUTPUT: 

PHI - THRUST AUGMEITATIOI AS COMPUTED BY THE MOMEITUH THEOREM 


****************** **************************************** ******************* 

IMPLICIT REAL*8( A-H ,0-Z) 

DIMEISIOI R(5) , ALPHA(I) ,D(I) , AMAT(I,I) ,BMAT(I,I) ,Q(I) 

PI=3 . 14159265D0 
ALP 3S DSQRT(DL0G(2 . ODO) ) 

*** COMPUTE THE PRIMARY JET MOMEITUH FLUX *♦* 

RMJ *BO/ ALP* DSQRT( PI ) * ( UOO*Ul O+0 . 5D0/ DSQRT( 2 . ODO) *U1 0**2- 
1 0. 5DO*VO*U10) 

*** IITEGRATE THE SURFACE PRESSURES **♦ 

C 

SUM3*0 . ODO 
VOX*VO*DCOS ( BETA) 

VOY*VO*DSII(BETA) 

C 

DO I=IS,IF 
C 

SUM1-0.0D0 
SUM 2=0 . ODO 
DO J*1,I 

SUM1=SUM1+AMAT(I,J)*Q(J) 

SUM2*SUM2+BMAT(I,J)*q(J) 
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EID DO 
C 

U=SUM1+V0X 

V=SUM2+V0Y 

C 

SUM3=SUM3+0 . 5D0*(U*U+V*V-V0**2)*D(I)*DSII( ALPHA(I) ) 

C 

EID DO 
C 

C *** TAUX IS THE IIDUCED THRUST *** 

C 

TAUX=SUM3 

C 

UO=R(l) 

U1=R(2) 

P =R( 3) 

B =R( 4) 

ETAH=ALP*HEXIT/B 

C 

C *♦* COMPUTE THE MOMEITUH FLUX EXITIIG FROM THE EJECTOR *** 

C 

TGROSS-B/ALP* (UO^*2*ETAH+DSQRT(PI) *UO*Ul*DERF(ETAH)+ 

1 0 . 5DO*DSQRT(PI/2 . ODO) *U1**2* 

2 DERF(DSQRT(2 . ODO) *ETAH) )- 

3 VO*B/ALP*(ETAH*UO+DSQRT(PI)/2 . ODO*Ul*DERF(ETAH) ) 

C 

C COMPUTE THE THRUST AUGMEITATIOI RATIOI USIIG THE *** 

C *** MOMESTUM THEOREM AID SURFACE PRESSURE CALCULATIO* *** 

C 

PHIMT=TGROSS/RMJ 
PHISP=1 . ODO+CTAUX-DFDRAG) /RMJ 
C 

C COMPUTE THE IIDUCED THRUST FROM THE MOMEITUH THEOREM *** 

C 

TIID=TGROSS-RMJ+DFDRAG 

C 

C *** VRITE RESULTS TO FILE OUT. DAT. 

C 

WRI TE ( 21 , 1 0) RM J , TGROSS , TAUX , TIID , DFDRAG , PHISP , PHIMT 
10 FORMATC // , * JET MOMEITUH = ’.F10.5, 

1 » EXITIIG MOMEITUH = \F10.5,/, 

2 ’ IIDUCED THRUST COMPUTED FROM SURFACE PRESSURES = ’,F10.5,/, 

3 > IIDUCED THRUST COMPUTED FROM MOMEITUH THEOREM * \F10.5,/, 

4 » PRESSURE DRAG ASSOCIATED WITH THE DIFFUSER * >,F10.5,/, 

4 » THRUST AUGMEITATIOI RATIO FROM SURFACE PRESSURES * \F10.5,/, 

5 > THRUST AUGMEITATIOI RATIO FROM MOMEITUH THEOREM * \F10.5) 

C 

C *** CHOOSE THE MOMEITUH THEOREM CALCULATED VALUE OF PHI **♦ 

C 

PHI=PHIKT 

C 

RETURJ 

EID 
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SUBROUTI IE SURF VEL ( ICO IT , IEXIT , ICP , YCP , D , AMAT , BHAT , Q , I , 

1 VO , BETA, SC,UEXT,1EXT,XLEI, STAG) 

C 

<>***♦** ***************** ***************************************************** 


THIS SUBROUTIIE COMPUTES THE SHROUD SURFACE VELOCITY FROM THE IIVISCID 
SOLUTIOI FOR USE I* THE BOUIDARY LAYER CALCULATE 01. 

*** LATEST REVISIOI - 22 APRIL 1987 *** 

*** PARAMETER DESCRIPTIOI *** 


IIPUT : 

XCOIT - X COORDIIATE OF THE COITROL STATIOI 
XEXIT - X COORDIIATE OF THE SHROUD EXIT 

XCP - VECTOR COITAIIIIG THE X COORDIIATES OF THE COITROL POUTS 

YCP - VECTOR COITAIIIIG THE Y COORDIIATES OF THE COITROL POUTS 

D - VECTOR COITAIIIIG THE PAIEL LEIGTHS 

AMAT - MATRIX OF HORIZOITAL IIDUCED VELOCITIES 
BMAT - MATRIX OF VERTICAL IIDUCED VELOCITIES 
Q - VECTOR COITAIIIIG THE SOURCE STREIGTHS 

I - I UMBER OF PAIELS 

VO - FREE-STREAM SPEED 

BETA - AIGLE OF ATTACK 

SC - VECTOR OF SURFACE COORDIIATES AT WHICH THE VELOCITIES ARE 

CALCULATED. THE SURFACE COORDIIATES ARE IORMALIZED SUCH THAT THE 
COITROL STATIOI LOCATIOI IS 1. THE QRIGII IS THE STAGIATIOI POUT 
IF A FREE-STREAM IS PRESEIT AID THE SHROUD TRAILIIG EDGE FOR 
STATIC OPERATIOI 
C UEXT - VECTOR COITAIIIIG THE SURFACE VELOCITIES 

C IEXT - IUMBER OF STATIOIS AT WHICH THE VELOCITY IS CALCULATED 

C XLEI - LEIGTH OF THE SURFACE OVER WHICH THE THE VELOCITIES ARE CALCULATED 

C STAG - LOGICAL VARIABLE SET TO TRUE WHEI A STAGIATIOI POUT IS PRESEIT 

C 

C** **************************************************************** *********** 

c 

IMPLICIT REAL*8( A-H , 0-Z) 

LOGICAL STAG 

DIMEISIOI XCP(I) ,YCP(I) , D(I) , AMAT (I, I) , BMAT(I.I) ,Q(I) 

DIMEISIOI SC(IOO) ,UEXT(100) 

LOGICAL FLAG 
C 

VOX=VO*DCOS(BETA) 

VOY»VO*DSII(BETA) 

C 

C *** FI ID PAIEL IIDEI OF SHROUD TRAILIIG EDGE *** 

C 

DO 10 1*1,1, -1 

IF(XCP(I-1) .LT. IEXIT) GOTO 20 
10 COITIIUE 

20 IS=I 

ISJ*IS 

C 

C *** FI ID THE PAIEL IIDEI OF THE COITROL STATIOI *** 

C 

FLAG*. FALSE. 

DO 30 I*IS,1, -1 

IF(ICP(I-1) .GT.XCP(I)) FLAG*. TRUE. 

IF(FLAG.AID.XCP(I) .GT. XCOIT) GOTO 40 
30 COITIIUE 

40 IF*I+1 
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IFJ=I 

K=0 

C 

C ♦** STORE THE SURFACE COORDIIATES AID COMPUTE THE *** 

C *** SURFACE VELOCITIES *** 

C 

DO 100 I=IS,IF,-1 
IFCI.EQ.IS) THEI 
K=K+1 

S =XEXI T* ICP ( I ) 

SC(1)=S 

X=XCP(I) 

Y=XCP(I) 

SUM1 =0 . ODO 
SUM 2=0 . ODO 
DO J=1 ,1 

SUM1=SUM1+AMAT(I,J)*Q(J) 

SUM2=SUM2+BMAT(I,J)*q(J) 

EID DO 
U=SUH1 +VOX 
V=SUK2+V0Y 

UEXT(K)=DSqRT(U*U+V*V) 

ELSE 

S=S+D( 1+1 )/2 . 0D0+D(I)/2 . ODO 

C 

C *** FILTER THE VELOCITY DATA WHICH IS TAXEI II A REGIOI 

C ADJACEIT TO THE COITROL STATIOI SINGULARITY . **♦ 

C 

X=XCP(I) 

Y=XCP( I) 

SUM 1=0. ODO 
SUM2=0 . ODO 
DO J=1,I 

SUMl=SUMl+AMAT(I,J)*q(J) 

SUM2=SUM2+BMAT(I > J)*q(J) 

EID DO 
U=SUM1+V0X 
V=SUH2+V0Y 
UMOD-DSqRT(U*U+V*V) 

IFCS.LT.5.0) THEI 

C 

C *** IICLUDE THE LOCAL POUT OILY IF THE *♦* 

C *♦* VELOCITY IS IICREASIIG *** 

C 

IF(UMOD. GT . UEXT(K) ) THEI 
K=K+1 
SCOO-S 
UEXT(K)=UHOD 
EID IF 
ELSE 
K=K+1 
SC(K)=S 
UEXT(K)=UHOD 
EID IF 
EID IF 

100 COITIIUE 
C 

C *♦* SEARCH FOR THE STAGIATIOI POUT (KIIIMUM VELOCITY MODULUS) *** 

C 


UMI 1=10. ODO 
DO 105, 1=1, K 
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105 


C 

C 

C 

C 


C 

C 

c 

c 
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IF(UEITCI) .LT.UHII) THEI 
UMI=UEIT(I) 

L=I 
EID IF 
COITIIUE 
IF(L.EQ.l) THEI 
STAG*. FALSE. 

ELSE 

STAG*. TRUE. 

EID IF 

*♦* CORRECT IF IOT ALL DATA IS FROM THE SAME SIDE OF THE *** 
*** STAGIATIOI POUT *** 

IFCSTAG) THEI 

TEST*(UEXT(L+2) -UEXTCL+1) ) / (UEIT(L+1) -UEXT(L) ) 
IF(TEST.GT.IO.O) L=L+1 
EID IF 


♦ ** IORHALIZE SURFACE COORDINATES SKIPPIIG OVER POUTS SUFFERING *** 
*** FROM SIIGULARITIES IEAR THE COITROL STATIOI (LAST THREE POUTS) ** 

IEID-CK-2) 

IFCSTAG) THEI 

S0= SC(L) - (SC(L+1)-SC(L) )*UEXT(L)/(UEXT(L+1) -UEXT(L) ) 

SC(1 )=0 . ODO 
UEXTCl )*0 . ODO 
IEXT-K-L 
1*1 
ELSE 

S0= 0 .ODO 
IEIT=IEID 
K=0 
EID IF 

XLEI=SC(IEID)-SO 
DO 110 I*L,IEID 
R*K+1 

SC(K) *(SC(I) -SO) /XLEI 
UEXT(K)*UEXT(I) 

COITIIUE 

RETURI 

EID 
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FUJCTIOI V(S,SD,Y) 

C 

C** ***************************************************************** ********** 

c 

C FUHCTIOI V COMPUTES THE VERTICAL COHPOMEiT OF VELOCITY FROM THE VISCOUS 
C SOLUTIO*. 

c 

c *** LATEST REVISIOI - 25 JAI 1987 *** 

C 

C *** PARAMETER DESCRIPTIOI *** 

C 

C IHPUT : 

C S - VECTOR COKTAIVI1G THE VALUES OF THE JET PARAMETERS 

C SD - VECTOR COSTAIIIIG THE VALUES OF THE DERIVATIVES OF THE JET 

C PARAMETERS 

C Y - CARTESIAI COORDIIATE (VERTICAL DISTAICE FROM JET CEITERLIHE) 

C 

C OUTPUT: 

c V - VERTICAL COMPOIEIT OF VELOCITY 

C 

C***** ************************************************************* *********** 

c 

IMPLICIT REAL*8(A-H,0-Z) 

DIMEBSIOI S(4) ,SD(4) 

C 

ALP-DSQRT(DLOG (2 . ODO) ) 

PI=3 . 1415926D0 
C 

UO=S(l) 

Ul-S (2) 

P =S (3) 

B =S ( 4) 

C 

UODOT=SD(l) 

U1D0T=SD(2) 

PDOT =SD(3) 

BDOT =SD(4) 

C 

ETA=ALP*Y/B 

F=DSQRT(PI)/2.0D0*DERF(ETA) 

E=DEIP(-ETA**2) 

C 

V=-B/ALP*(ETA*UODOT+F*U1DOT+U1/B*(F-ETA*E)*BDOT) 

C 

RETURI 

EID 
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B.3.2 Dual-Jet Library TWINLIB 

SUBROUTIIE DERI VI (H,I ,S , SD) 

C 

C******************************************************** **************** ****** 

c * 

C SUBROUTIIE DERIV1 COMPUTES THE DERIVATIVES OF THE JET PARAMETERS WITHII * 
C THE VISCOUS-IIVISCID MATCHIIG REGIOI. * 

C * 

C *** LATEST REVISIOI - 23 APR 1987 *** ♦ 

C * 

C *** PARAMETER DESCRIPTIOI *** * 

C IHPUT : * 

CM - I UMBER OF JET PARAMETERS * 

Cl - DISTAICE FROM THE JET ORIGII * 

C S - VECTOR COITAIIIIG THE JET PARAMETERS U0,U1 ,P , A , B , Y1 , Y1DOT * 

C RESPECTIVELY * 

C * 

C OUTPUT: * 

C SD - DERIVATIVES OF THE JET PARAMETERS * 

C * 

O* ******************************************************************* ********* 

c 

IMPLICIT REAL*8(A-H,0-Z) 

DIMEISIOI S(7),SD(7),V(2,2),RHS(2),C(2»2) 

COMMOI UO , U1 , P , A , B , Y1 , ALP 
C 

C *** DECODE THE S ARRAY SO THE PARAMETERS KAY BE SEIT IS COMMOS *♦* 

C 

UO=S(l) 

U1=S (2) 

P=S (3) 

A*S(4) 

B-SC5) 

Y1«S(6) 

DY1DI*S(7) 

C 

C **♦ COMPUTE THE CURVATURE OF THE JET CEITERLIIE *** 

C 

CALL FO RCE1 ( I , D Y1 DI , UODOT , ADO T , D2 Y1 DI) 

C 

C *** COI IS A REPEATEDLY USED COISTAIT. RK IS THE EDDY VISCOSITY *** 

C *** SCALIIG COISTAIT. RMU IS THE EDDY VISCOSITY COEFFICIEIT *** 

C 

COI*l . ODO-DLOG ( 2 . ODO) /2 . ODO 
RK=0.0283D0 

RMU*RK*U1*B 

C 

C *** COMPUTE THE MATRIX ELEMEITS AID RIGHT HAID SIDE 

C 

D1UO =2.0D0*U1 

C (1 , 1) =UO+4 . 0D0/3 . ODO^Ul+O . 5 DO* A 
D1A *U1-0.5DO*COI*A 

C(l,2)*l .ODO/B*(U1*(UO+2,ODO/3.0DO*U1+0.5DO*A)-0.25DO*COI*A**2) 

T1*0 . ODO 

RHS ( 1 ) =T1 - ( DlUO*UODOT+Dl A* ADO T) 

C 

D2UO *2 . ODO*Ul* (2 . 0D0*U0+Ul+A)-0. 25DO*A**2 

C(2,l)=2.0D0*U0*(UO+2.0D0*Ul+A)+Ul*(l .6DO*Ul+2.OD0*A)+O.5DO*A**2 
D2A =U1 * (Ul+2 . ODO*UO+A) -C0I*A* (UO+0 . 5D0*A)-0 . 125DO* A**2 

C ( 2 , 2 ) *1 . ODO/ B* (U1 * * 2* ( 2 . ODO*UO+8 . ODO/1 5 . ODO*Ul +A) + 
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1 2 . ODO*UO*Ul* (UO+A)+ 

2 0 . 5DO* A**2* (-COI* (UO+O . 5DO*A) +U1) ) 

T2*-RMU* ( ALP/B) +*2*(16. ODO/15 . ODO*Ul*+2+l . 0D0/3.0D0*A**2) 

RHS (2) =T2“(D2UO*UODOT+D2A*ADOT) 

C 

C *** SOLVE THE LIIEAR SYSTEM FOR THE DERIVATIVES OF THE JET **♦ 

C *** PARAMETERS *** 

C 

CALL SIMQ(C,W,RHS ,2,2 ,IER) 

C 

C *** LOAD THE DERIVATIVES OF THE JET PARAMETERS IITO THE SD ARRAY *** 

C 

SD(1 )=UODOT 
SD(2)=RHS (1 ) 

SD(3)—UO*UODOT 
SD(4) =AD0T 
SD( 5) =RHS (2) 

SD(6) =DY1DI 
SD(7)=D2Y1DI 
C 

RETURI 

EHD 
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SUBROOTI1E DERIV2(M,I,S,SD) 

C 

c** ************************************************************** ************** 

* 

SUBROUTIIE DERIV2 COMPUTES THE DERIVATIVES OF THE JET PARAMETERS WITHII * 
THE FULLY VISCOUS REGIOI. * 

* 

*** LATEST REVISIOI - 23 APR 1987 * 

♦ 

*** PARAMETER DESCRIPTIOI ♦ * 

IIPUT : ♦ 

M - I UMBER OF JET PARAMETERS ♦ 

X - DISTAICE FROM THE JET ORIGII * 

S - VECTOR COITAIIIIG THE JET PARAMETERS: U0,U1 ,P, A , B, Y1 , DRAG * 

OUTPUT: * 

SD - VECTOR COITAIIIIG THE DERIVATIVES OF THE JET PARAMETERS * 

* 

I****** ***************************************************************** ****** 

IMPLICIT REAL*8(A-H,0-Z) 

LOGICAL DUMP 

DIMEISIOI S(7) ,SD(7) , V(6,6) ,RHS(6) ,C(6,6) ,WK(6) ,D(35) ,SUM(35) 

C0MM0I UO,Ul ,P,A,B,Y1,ALP 

*** AREA 18 IS SHARED WITH PERFOR AID TWOJET. *** 

**• AREA 21 IS SHARED WITH DUOAUG AID TWOJET. 

**♦ ERROR IS SHARED WITH DUOAUG AID TWOJET. *** 

COMMOI /AREA18/ H,HDOT 
COMMOI /AREA21/ DIFSLP,XDIFF 
COMMOI /ERROR/ I ERROR 
C 

C ♦♦♦ DEFIIE THE IIVERSE HYPERBOLIC COSIIE FUICTIOI 

C 

D ACO S H (X ) *DLOG ( X+DSQ RT ( X* * 2- 1 . ODO) ) 

C 

C *** ABORT IF AI ERROR COIDITIOI EXISTS *** 

C 

I F( I ERROR . EQ . 1 ) GOTO 200 
C 

C ♦** DECODE THE S VECTOR SO THE VALUES HAY BE SEIT II COMMOI *** 

C 

U0»S<1) 

U1*S(2) 

P=S (3) 

A=S (4) 

B=S (5) 

Y1-SC6) 

C 

C *** COMPUTE THE DIFFUSER SLOPE AID CHAIIEL WIDTH **♦ 

C 

IF(X.LT.IDIFF) THEI 
H*2 . ODO 
HD0T*O . ODO 
ELSE 

H*2 . ODO+ ( X-IDIFF) *DIFSLP 
HDOT*DIFSLP 
EID IF 
C 

C *** DEFIIE REPEATEDLY USED COISTAITS 

C 


*++ 
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CONST=ALP/B 
Cl =2 . ODO*COIST*U1 
UlSq=Ul**2 
AD2=A/2 . ODO 
C 

C *** COMPUTE THE EDDY VISCOSITY COEFFICIEIT (UCL AID UMAX ARE 

C *** I0RMALIZED BY Ul) 

C 

ETA1=Y1*C0IST 
C2=DC0SH(2 . ODO^ETAl) 

C2SQ=C2**2 

UCL=4. ODO/(1 . ODO+C2) 

ET=0. 5DO*DACOSH(2 . ODO) 

IF(ETAl.LT.ET) THE* 

ETAHAX=0 . ODO 
UMAX-UCL 
ELSE 

ETAMAX=0 . SDO+DACOSHC (C2SQ-2 . ODO)/C2) 

UMAX=C2SQ/ (C2SQ-1 . ODO) 

EHD IF 
G=4 . ODO/UMA X 
F=G-1 . ODO 
FSQ=F**2 

ETASTR=0 . 5DO*DACOSH( F*C2+DSQRT( (FSQ-1 . ODO) *C2SQ+2 . ODO*G) ) 
BTILDA=(ETASTR-ETAMAX* ( 1 . ODO-UCL/UMAX) ) /COIST 
UTILDA=U1 *UMAX 
RK=0 . 0283DO 
RMU=RX*UTILDA*B 
C 

*** IIITI ALIZE IITEGRATIOI PARAMETERS. YL IS THE LOWER LIMIT OF *** 
*** IITEGRATIOI, YU IS THE UPPER LIMIT, HIT IS THE IUMBER OF *** 

*** SUBIITERVALS, AID DY IS THE SUB-IITERVAL SIZE 

YL=0 . ODO 
YU=H 

HIHT=IIT(4 . ODO*H/B) 

I F ( DM0 D ( DFLO AT (IIIT) ,2 . ODO) . GT. 0 . IDO) II*T=IIIT+1 
DY=( YU- YL) / DFLO AT ( II IT ) 

♦♦♦ IIITI ALIZE TEMPORARY STORAGE SPACE TO ZERO *♦* 

IVEC=35 
DO 1=1 , IVEC 

SUM(I) =0 . ODO 
EHD DO 

*** EITER THE IITEGRATIOI LOOP *** 

C 

Y=YL 

DO 1=0, IIIT 
C 

C *** DEFIIE REPEATEDLY USED TERMS *♦* 

C 

ETA=COIST*Y 
ARG1=C0IST* ( Y+Yl) 

ARG2=C0IST*(Y-Y1) 

T1=DTAIH( ARG1) 

T2=DTAIH( ARG2) 

SlSq=1.0DO-Tl**2 

S 2 Sq= 1 . 0 D 0 -T 2**2 

T1S1SQ=T1*S1SQ 
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T2S2SQ=T2*S2SQ 

G1=S1SQ*(3.0DO*S1SQ-2.0DO) 

G2=S2SQ* (3 . 0D0*S2SQ-2 . ODO) 
qi=DLOG(DCOSH(ARGl) ) 
q2*DL0G(DC0SH(ARG2)) 

SUM1*T1+T2 

suM2«sisq+S2sq 

SUM3*TlSlSq+T2S2Sq 

SUM4=ARGl*SlSq+ARG2*S2Sq 

C 

C ♦♦♦ COMPUTE VELOCITY AID DERIVATIVES ♦ ♦♦ 

C 

U-U0+AD2*(T1-T2)+U1*SUM2 

DUDY—C0IST^(AD2*(-SlSq+S2Sq)+2.0DO*Ul*SUM3) 

D2UDY2*-C0IST**2* (A* (TlSlSq-T2S2Sq)+ 

1 2 . ODO*Ul*(Gl+G2) ) 

C 

C ♦♦♦ COMPUTE THE COEFFICIEITS OF THE DERIVATIVES OF THE JET ♦ ♦* 

C ♦♦♦ PARAMETERS ♦ ♦♦ 

C 

FUO=U-ETA/ COIST*DUDY 

FU1 =SUM2 ♦ U- C T1 +T2 ) /CO IS T* DUDY 

FP =1 .ODO 

FA =O.5DO*(Tl-T2)*U-O.5DO/C0IST*(qi-q2)*DUDY 
FB =1 . ODO/B* ( AD2*(-ARG1 *SlSQ+ARG2*S2Sq)+ 

1 2 . ODO*Ul*(ARGl*TlSlSq+ARG2*T2S2Sq)) *U~ 

2 1 . ODO/ ALP* ( AD2* ( - ARG1 ♦Tl +qi +ARG2*T2-Q2) + 

3 U1 * (-SUH4+SUM1 ) ) ♦DUDY 
FY1=ALP/B* ( AD2*SUM2+ 

1 2.0D0*Ul^(-TlSlSq+T2S2Sq))^U- 

2 (AD2*SUMl+Ul*(SlSq-S2Sq) )*DUDY 
TAU=RMU*DUDY 

IF(Y.EQ.YH) TAU=0. ODO 
C 

C ♦♦♦ EITER A LOOP TO CYCLE THROUGH THE DIFFEREIT WEIGHTIHG ♦♦♦ 

C ♦♦♦ FUICTIOIS ♦♦♦ 

C 

11=5 

DO 1=0,4 
IP1=II+1 

IF(IPl.GT.S) IPl=IPl-5 
IP2=II+2 

IF(IP2 .GT . 5) IP2*IP2-5 
IP3=II+3 

IFCIP3.GT.5) IP3*IP3-5 
IP4-II+4 

IFCIP4.GT.5) IP4-IP4-5 
IF(I.Eq.O) THEM 
WEIGHT=FP 
DWTDY=0 . ODO 
EID IF 

IF(I.Eq.II) THEI 
VEIGHT*FU0/U1 

DWTDY=(-ETA/C0IST*D2UDY2)/U1 
EID IF 

IFCl.Eq.IPl) THEI 
WEIGHT*FU1/U1 

DWTDY=(-2 . ODO*COIST*SUM3*U- 
1 1 . ODO/COIST*SUM1*D2UDY2)/U1 

EID IF 

IF(I.Eq.IP2) THEI 
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VEIGHT=FB/U1SQ 

DVTDY=(C0IST/B*(AD2*(-SlSQ*(l.ODO-2.ODO*ARGl*Tl)+ 

1 S2SQ* (1 . ODO- 2 . 0D0*ARG2*T2) )+ 

2 2 . 0D0*U1* (SUM3+ARG1*G1+ARG2*G2) )+U- 

3 1 .0D0/ALP*(AD2*(-ARGl*Tl+Ql+ARG2*T2-q2)+ 

4 U1 * (-SUM4+SUM1 ) ) *D2UDY2) /UlSq 
EKD IF 

IF(I . Eq . IP3) THEI 
WEIGHT=FYl/UlSq 
D¥TDY=(-C0IST**2*(A*SUM3+ 

1 2 . 0D0*U1*(G1-G2) ) *U- 

3 (AD2*SUMl+Ul*(SlSq-S2Sq))*D2UDY2)/UlSq 

EED IF 

IF(I.Eq.IP4) THEI 
WEIGHT=FA/U1 

DWTDY=(O.5DO*C0HST*(SlSq-S2Sq)*U- 
1 0. 5DO/COHST*(qi-q2) *D2UDY2)/U1 

EID IF 
C 

**♦ LOOP TO FIID THE VALUES OF ALL OF THE IITEGRAIDS 

IID=I*7 
DO J=1 , 6 

IF(J.Eq.l) F=FUO 
IFCJ.Eq.2) F=FU1 
IFCJ.EQ.3) F=FP 
IFCJ.Eq.4) F=FB 
IF(J.Eq.S) F=FY1 
IF(J.Eq.6) F-FA 
D(IID+J) =F* WEIGHT 
EID DO 

D(IID+7) =-TAU*DVTDY 
EID DO 
C 

C +♦* SET THE SIMPSOI ’ S RULE IITEGRATIOI WEIGHTIIG FACTORS 

C 

R=2 . ODO 

IF(DHOD(DFLOAT(I) , 2 . ODO) . GT. 0 .IDO) R=4.0D0 
IF(I.EQ.O.OR.I.Eq.IIIT) R=1.0D0 
C 

C *** FIID COITRIBUTIOIS TO THE IITEGRALS 

C 

DO J=1 , IVEC 

SUH(J)»SUM(J)+R*D(J) 

EID DO 
C 

C **♦ I I CREME! T Y 

C 

Y=Y+DY 

C 

EID DO 
C 

C *** STORE APPROXIMATED IITEGRALS *** 

C 

FACT=DY/3.0DO 
DO 1=0,4 
■PI =1+1 
IID=I*7 
DO 1=1,6 

C(IP1,I)=SUM(IID+I)*FACT 
EID DO 


*** 


*** 
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RHS(IP1)=SUM(IID+7)*FACT 
EVD DO 
C 

**♦ EIFORCE COITIIUITY 01 THE UPPER WALL *** 

C(6, 1) *-ETA/C0IST 
C(6 , 2) *- (T1+T2) /COIST 
C(6 ,3) *0 . ODO 

C<6,4) — 1 . ODO/ ALP* ( AD2* (“ARG1*T1+Q1+ARG2*T2-Q2) + 

1 Ul*(-ARGl*SlSq-ARG 2 *S 2 SQ+Tl+T 2 >) 

C(6,5)*‘(AD2*(T1+T2)+U1*(S1SQ-S2SQ)) 

C(6,6)=-0.5DO/COIST*(qi-q2) 

RHS (6)=HD0T*U 

*** SOLVE THE LI HEAR SYSTEM FOR THE DERIVATIVES OF THE JET PARAMETERS** 
D 1=0. ODO 

CALL LIIV3F(C,RHS,2,6,6,D1 ,D2,W,IER) 

IFQER.Eq.130) THE! 

WRITE (3, 107) 

FORMATO ERROR II DERIV2 : LIIV3F FOUID A SIIGULAR MATRIX >) 

IERR0R=1 
GOTO 200 
EID IF 

DET=D1* (2 . ODO) **D2 

♦** LOAD THE SD VECTOR WITH THE DERIVATIVES OF THE JET PARAMETERS *** 
C 

SD(l)-RHSCl) 

SD(2)»RHS<2) 

SD(3)»RHS(3) 

SD(4)=RHS(6) 

SD(5) =RHS (4) 

SD(6)=RHS(5) 

SD(7)=SD(3)*H 

C 

IERR0R=O 

RETURI 

C 

c ♦♦* 01 ERROR COIDITIOI, ZERO THE JET DERIVATIVES *** 

C 

200 DO 1*1,6 

SD(I)*0 . ODO 
EID DO 
C 

RETURI 

EID 
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S UBROUTI IE DUOBO D( X J , Y J , DY1 DXO , Y1 CS , ■ J LS , 1 JLF , I JUS , I JUF , 

1 IS ,IF,IER) 

C 

C** **************************************************************** ************ 

c * 

C SUBROUTIIE DUO BOD GEIERATES THE COORDIIATES OF THE EJECTOR SHROUD FOR * 

C THE DUAL JET EJECTOR. THE SUBROUTIIE READS DATA FOR THE JET TRAJECTORY * 
C COHTAIIED II LOGICAL UIIT 20 (FILE JETCL.DAT) . * 

**♦ LATEST REVISIOI - 23 APR 1987 *** * 

*** PARAMETER DESCRIPTIOI *** * 

IIPUT : * 

XJ - I COORDIIATE OF THE JET IOZZLE ♦ 

C YJ - Y COORDIIATE OF THE JET IOZZLE * 

C DY1DX0 - IIITIAL JET SLOPE * 

C * 

C OUTPUT: * 

C Y1CS - Y COORDIIATE OF THE JET CEHTERLIIE AT THE COITROL STATIOI ♦ 

C NJLS - IIDEX OF THE START OF THE JET LOHER SIDE BOUIDARY * 

C NJLF - IIDEX OF THE FIIISH OF THE JET LOHER SIDE BOUIDARY * 

C HJUS - IIDEX OF THE START OF THE JET UPPER SIDE BOUIDARY * 

C HJUF - IIDEX OF THE FIIISH OF THE JET UPPER SIDE BOUIDARY * 

C NS - INDEX OF THE START OF THE EJECTOR SHROUD IOSE * 

C NF - IIDEX OF THE FIIISH OF THE EJECTOR SHROUD IOSE * 

C IER - ERROR PARAMETER 1 FOR ERROR COIDITIOI 0 FOR IORMAL EXECUTIOI * 

C * 

C* ****************************** ******* ********************************** ****** 

c 

IMPLICIT REAL*8(A-H,0-Z) 

DIMENSION ICL(lOO) ,YCL(100) ,SPLI(300) 

DIMENSION XTMPC300) 

C 

C **♦ DEFIIE POHER-LAH STRETCHIIG FUICTIOI *** 

C 

COORD(I,SF,XO,I1)=((X1-XO)*SF**DFLOAT(I)-(X1-SF*XO))/(SF-1.0DO) 

RAD( DEG) =DEG/1 80 . ODO*PI 
C 

PI=3 . 1415926D0 
HH=0 . O5D0 
DX0=0 . 04D0 
DX1=0 . 3D0 

SLPJET=DTAI(RAD(9. ODO) ) 

10 FORMAT (3F1 5 . 5) 

C 

C *** READ II THE COORDIIATES OF THE JET CEITERLIIE *** 

C 

REVIID 20 
DO 1=1,100 

READ (20,* , EID=15) XCL(I) ,YCL(I) 

END DO 

15 COITIIUE 

C 

C *** EXTRAPOLATE TO GET OIE MORE POUT *** 

C 

1 = 1-1 
DELX=5 . ODO 

DYDX=( YCL(I) -YCL( 1-1 ) )/ (XCL(I) -XCL(I-l) ) 

XCL ( 1+1 ) S XCL (I) +DELX 

YCL(I+1)*YCL(I)+DYDX*DELX 

ICL=I+1 
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C 

C *** SPLIIE FIT THE JET CEITERLIIE *** 

C 

CALL ICSCCU( I CL , YCL , ICL , SPLI , ICL-1 , IER) 

C 

C *** DETERKIIE THE COORDIIATES OF THE COITROL STATIOI 

C 

X*XCL< ICL-1 )+1.0D0 
T0L*1 . D-4 
DO 1=1,100 

CALL IITRP ( X , ICL , YCL , ICL , S PLI , ICL-1 , Y1 , DY1DX , D2 Y1 DX , IER) 
IF(IER.IE.O) THE! 

WRITEC3, 5) IER, X 

5 FORMATS ERROR II DUOBOD: IITRP RETURIED WITH IER = >,I3, 

1 * X = , , FI 0 . 5 ) 

IER=1 
RETURI 
EID IF 

YB=DABS ( 1 . ODO- Y1 ) +DABS ( HH+ (X-XJ ) *SLPJ ET) 

RES=0. 8D0-YB 
IF(I.EQ.l) THEI 
V=1 . ODO 
ELSE 

W=- (I-XOLD) / (RES-RESOLD) 

EID IF 
XOLD=X 
RESOLD=RES 
X=X+W*RES 

IF(DABS(RES) LT.TOL) GOTO 7 
EID DO 

7 COITIIUE 

xcs=x 

IF(ICS.LT.l.ODO) THEI 
VRITE(3, 13) 

13 FORMAT ( y ERROR II DUOBOD: ICS WAS LESS THAI 1.00 

IER=1 
RETURI 
EID IF 

CALL I ITRP ( XCS , ICL , YCL , ICL , S PLI , ICL-1 , Y1 CS , D Y1 DX , D2 Y1 DX , I ER) 
IF(IER.IE.O) THEI 
WRITEC3, 5) IER,X 
IER=1 
RETURI 
EID IF 

YLWR=Y1 CS - ( HH+ ( ICS - X J ) * SLP JET) 

YUPP=Y1CS+(HH+(ICS-IJ)*SLPJET) 

SLPCS-DY1DI 

C 

C ♦** GEIERATE AID TEMPORARILY STORE THE I COORDIIATES *** 

*** FOR THE JET BOUIDARY **+ 

DIST*(ICS-IJ ) /2 . ODO 
SF=1 . 5D0 
X0=IJ 
I1=X0+DI0 

I=IIT(DL0G(DIST/DX0*(SF-1 . 0D0)+1 . 0D0)/DL0G(SF) )+l 
K=0 

IFCI.LE.5) THEI 
DO 1*1,20 

F=DIST-DI0*(SF**I-1.0D0)/(SF-1.0D0) 

DF*-DXO* ( (DFLOAT(I)*SF*+(I-l)*(SF-l ,0D0)-(SF**I-1 . ODO) )/ 
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9 


C 

C 

c 

c 


c 


c 


1 (SF-1 . ODO) **2) 

SF=SF-F/DF 

IF(DABS(F).LT.TOL) GOTO 9 
EHD DO 
COHTIfUE 
DO 1=0,1 
K=K+1 

ITHP(K)*COORD(I ,SF, 10, II) 

EiD DO 
XO=XCS 
X1=X0-DX0 
DO 1=1-1, 0,-1 
K=K+1 

ITMP(K)=COORD(I , SF , XO, XI) 

EHD DO 
HJET=K 
ELSE 

DO 1=0,5 
K=K+1 

XTMP(K) =COQRD(I ,SF,XO, XI) 

EFD DO 
XO=XCS 
X1=XO-DXO 

XP=COORD( 5, SF, XO, XI) 

DIST=XP-XTMP(K) 

DX=0 . 3 DO 

IMD=IIIT(DIST/DX) 

IF(IMD.GT.O) DI=DIST/DFLOAT(IKID) 

DO 1=2 , IMID 
K=K+1 

XTMP(K)=ITHP(K-1)+DX 
EID DO 
DO 1=5, 0,-1 
K=K+1 

XTMP(K) =COORD(I ,SF,X0,X1) 

EID DO 
IJET=K 
EID IF 

*** GEHERATE UP TO THE LOWER COITROL STATIOI *** 


L=0 


X0=0 . ODO 
X1=X0-DX1 
SF=1 . 6 DO 
DIST=20. ODO 

IPTS=IIIT(DLOG( (SF-1 . ODO) *DIST/DX1+1 , ODO)/DLOG(SF) ) 

Y=0 . ODO 
VH=0 . ODO 
DO I=IPTS ,0, -1 

X=COORD(I ,SF,X0,X1) 

L=L+1 

WRITECl ,10) X,Y, VI 
EHD DO 

SF=1 . 2 DO 

A=DATAI( SLP JET) -DATA! (SLPCS) 

AHG=PI/2 . ODO-A 

R=YLWR/ ( 1 . ODO+DSI I ( AIG) ) 
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IC=XCS-R*DCOS ( AIG) 

XO=XC 
XI =XO-DXO 

II=IIIT(DL0G(DX1/DX0)/DL0G(SF)) 

XT=COORD(II,SF,XO,X1) 

DIST=XT-0 . ODO 
IF(DIST.LT.O.ODO) THEI 

II=IIIT( DLOG ( (SF-1 . ODO) *IO/DIO+l . ODO) /DLOG(SF) ) 

EID IF 

■=IIIT(DIST/DX1) 

IF(I.GT.O) DX=DIST/DFLOAT(I) 

DO 1=1,1 
X=X+DX 
L=L+1 

WRITE(l , 10) I,Y, VI 
EID DO 

DO 1=11-1, 1,-1 

X=COORD(I,SF,XO,X1) 

L=L+1 

WRITECl ,10) X , Y , VI 
EID DO 

♦ GEBERATE THE POUTS FOR THE LOWER CQITROL STATION 

A=DATAI(SLPJET) -DATAI(SLPCS) 

AIG-PI/2.0D0-A 
R=YLWR/(1 .ODO+DSlKAIG)) 

IC=XCS-R*DCOS(AIG) 

YC=R 

DTH0=DX0/R 
THETA0=-PI/2 . ODO 
THETA1=THETA0+DTH0 
DTH=PI/2 . ODO-A/2 . ODO 
SF=0 . 5D0*R+0. 95D0 

I=IIIT(DLOG( (SF-1 . 0D0)*DTH/DTH0+1 . ODO)/DLOG(SF)) 

DO 1=1,20 

F=DTH- DTHO* ( S F* ♦ I- 1 . ODO) / ( SF- 1 . ODO) 

DF=-DTHO*((DFLOAT(I) *SF^*(I-l)* (SF-1 . ODO)- (SF* *1-1 . ODO)) / 
1 (SF-1.0D0)**2) 

SF=SF-F/DF 

IF(DABS(F) .LT.TOL) GOTO 6 
EID DO 
C 

6 COITIIUE 
DO 1=0,1 

THETA*COORD( I , SF , THETAO , THETA1 ) 

X=XC+R*DCOS (THETA) 

Y=YC+R*DSII (THETA) 

IF(I.EQ.I) THEI 

THIEXT=THETA+( THETA-COORD ( I- 1 , SF, THETAO, THETA1 ) ) 

ELSE 

THIEIT*C00RD(I+1,SF, THETAO, THETA1) 

EID IF 

THHID=(THETA+THIEXT) /2 . ODO 
VI=DCOS(THMID) 

L=L+1 

WRITE(1 ,10) X , Y , VI 
EID DO 
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THETAO=AIG 
THETAl=THETAO-DTHO 
DO 1=1-1, 1,-1 

THET A=C0 0 RD ( I , SF , THETAO , THET A1 ) 

X=XC+R*DC0S (THETA) 

Y=YC+R*DSII (THETA) 

THIEIT*C00RD(I-1 ,SF, THETAO, THETA1) 

THMID=(THETA+THIEXT) /2 . ODO 
VI=DC0S (THHID) 

L=L+1 

VRITEd , 10) I , Y , VI 
EHD DO 
C 

IJLS=L+1 

C 

C GEBERATE THE POUTS ALOBG THE JET BOUHDARY *** 

C 

DO I=IJET ,2,-1 
X=XTKP(I) 

CALL IITRP (X , XCL , YCL , ICL , SPLH , ICL-1 , Y1 , DY1DX , D2 Y1 DX , IER) 
IF(IER.IE.O) THEM 
VRITE(3,5) IER, I 
IER=1 
RETURI 
EID IF 

Y=Y1-(HH+(X-XJ)*SLPJET) 

IIEXT=XTHP(I-l) 

IHID=(X+XIEIT)/2.0D0 
VI=DSII(DATAI(SLPJET) -DATAI(DYIDX) ) 

L=L+1 

WRITECl ,10) X, Y, VI 
EHD DO 
HJLF=L+1 
C 

ICIRC=4 

RR=HH/DC0S(RAD(12 . ODO) ) 

XC=XJ+RR*DSII(RAD(12 . ODO) ) 

YC=YJ 

DELTH=PI-2 , 0D0*RAD(12 . ODO) 

DTH=DELTH/DFLO AT ( ICIRC) 

THETA=-PI/2 . ODO-RAD(12 . 0D0)+DY1DI0 
Vi=0 . ODO 
DO 1=0, ICIRC- 1 

X=XC+RR*DCOS (THETA) 

Y=YC+RR*DSII(THETA) 

L=L+1 

WRITE(l ,10) X,Y, VI 
THETA=THETA-DTH 
EID DO 
C 

IJUS =L 

DO 1=1 , IJET-1 
I=XT?IP(I) 

IF(I.EQ.l) THE! 

Y1=YJ 

ELSE 

CAU IITRP (X , ICL , YCL , ICL , SPLI , ICL-1 , Y1 , DY1DX , D2 Y1 DI , IER) 
IF(IER.IE.O) THEI 
WRITE(3, 5) IER, X 
IER=1 
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RETURI 
EID IF 
EID IF 

Y=Y1+(HH+(X-IJ) ♦SLPJET) 

XIEXT=XTHP(I+l) 

XMID*(X+XIEXT) /2 . ODO 
VI=DSII(DATAI(SLPJET) +DATAKDY1DX) ) 

L=L+1 

WRITECl ,10) X , Y, VI 
EID DO 
IJUF=L 
C 

C *** GEIERATE POUTS FOR THE UPPER COITROL STATIOI *** 

C 

A=DATAI(SLPJET)+DATAI(SLPCS) 

AIG=A- PI/2. ODO 

R= ( 2 . ODO- YUPP) / ( 1 . ODO- DSI I ( AIG) ) 

XC=XCS-R*DCOS(AIG) 

YC=2 . ODO-R 
C 

DTH0=DI0/R 
THETA0=AIG 
THETAl =THETAO+DTHO 
DTH=PI/2 . ODO-A/2 . ODO 
SF=0 . 5D0*R+0 . 95 DO 

I=IIIT(DLOG( (SF-1 . ODO) *DTH/DTHO+l . ODO)/DLOG(SF) ) 

DO 1=1,20 

F»DTH- DTHO* ( SF* *1- 1 . ODO) / ( SF-1 . ODO) 

DF=-DTHO* (CDFLO AT(I) *SF** (I-l)* (SF-1 . ODO)- (SF**I-1 . ODO) ) / 
1 (SF-1 .0D0)**2) 

SF=SF-F/DF 

I F( DABS ( F) . LT . TOL) GOTO 8 
EID DO 
C 

8 COITIIUE 
DO 1=0,1 

THET A=COO RD ( I , S F , THETAO , THET A1 ) 

I=XC+R*DCOS( THETA) 

Y=YC+R*DSII (THETA) 

IF(I.EQ.I) THEI 

THIEIT=THETA+(THETA-C00RD(I-1,SF, THETAO, THETAl)) 

ELSE 

THIEIT*C00RD(I+1,SF, THETAO, THETAl) 

EID IF 

TKHI D=(THETA+THIEXT) /2 . ODO 
VI*DCOS(THMID) 

L=L+1 

VRITE(1 ,10) X,Y, VI 
EID DO 
C 

THET A0*PI/2. ODO 
THETAl *THETAO-DTHO 
DO 1*1-1, 1,-1 

THETA=C00 RD( I , SF , THETAO , THETAl) 

X=XC+R*DCOS (THETA) 

Y=YC+R*DSII (THETA) 

THIEXT*COORD ( I - 1 , S F , THETAO , THETAl ) 

THHID*(THETA+THIEXT)/2 . ODO 
VI*DCOS ( THMID) 

L*L+1 

WRITE(1 ,10) I,Y, VI 
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EID DO 
C 

C *♦* GEIERATE POUTS 01 THE UPPER CHAIHEL WALL *** 

C 

XO=XC 
I1=I0-DI0 
Y=2 . ODO 
VI=0 . ODO 
SF=1 . 2D0 
DIST=XO-l . ODO 

HH=HIIT(DLOG(DX1/DXO)/DLOG(SF) ) 

B*IIT(DL0G( DIST/DXO* (SF-1 . ODO) +1 . ODO) /DLOG(SF) )+l 
K=0 

IF(I.LE.II) THE! 

DO 1=1,20 

F=DIST-DX0* (SF**H-1 . ODO)/ (SF-1 . ODO) 

DF=~DXO* ( (DFL0AT(H)*SF**(H-1) +(SF-1 . ODO)-(SF**I-l . ODO) )/ 
1 (SF-1 .ODO)**2) 

IF(DABS(DF) .LT.l.D-6) THEI 
SF-SF-F 
ELSE 

SF=SF-F/DF 
EHD IF 

IF(DABS(F) .LT.TOL) GOTO 11 
EBD DO 

11 COBTIBUE 

DO 1*0, B-l 

X=COORD(I,SF,XO,X1) 

L=L+1 

WRITE(1 ,10) X , Y , VB 
EHD DO 
ELSE 

DO 1=0, IB 

X=COORD(I ,SF , XO, XI ) 

L=L+1 

WRITE(1 , 10) X, Y, VI 
EBD DO 

DIST=I-1 . ODO 
B=IIIT(DIST/DX1 ) 

IF(B.IE.O) DI=DIST/DFLOAT(I) 

DO 1=1, 1-1 
X=X-DX 
L=L+1 

WRITE(1 ,10) X,Y,VI 
EBD DO 
EHD IF 
C 

C *** GEIERATE THE POUTS FOR THE BODY BOSE *** 

C 

ICIRC=12 
XC=1 . ODO 
YC=3 . ODO 
R=1 . ODO 

DTH=PI/DFLOAT(ICIRC) 

THETA=3 . ODO/ 2 . ODO* PI 

V 1=0. ODO 

IS=L+1 

DO 110 1=0 , ICIRC 

X=XC+R*DCOS (THETA) 

Y*YC+R*DSII (THETA) 

L=L+1 
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no 

c 

c 


c 


c 

c 


VRITE(1 ,10) X , Y , VI 
THETA=THETA-DTH 
COITIIUE 

IF-L-1 

DI=0 . 2D0 
SF=1 . 2 DO 
IO*X 
Il=XO+DI 
DIST=ICS-X 

I=IIIT(DLOG(DIST/DI* (SF-1 . ODO) +1 . ODO) /DLOG(SF) ) 
DO 1*1,1 

X=COORD(I,SF,IO,X1) 

L=L+1 

WRITECl , 10) X , Y , VI 
EID DO 

DX=COORD(I, SF, XO, X1)-C00RD(I-1 , SF, 10,11) 

XO=X-DX 

X1=X 

SF-1.6D0 
DIST*20 . ODO-XO 

I=IIIT(DLOG(DIST/DX* (SF-1 . 0D0)+1 .ODO)/DLOG(SF)) 
DO 1=2,1 

X=COORD(I ,SF,X0,X1) 

L=L+1 

WRITECl, 10) X , Y , VI 
EID DO 

IER=0 

RETURI 

EID 
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SUBROUTIIE FORCEl(I,DYlDX,UODOT,iDOT,D2YlDI) 
C 

C** ******************** ************* ******* ******* 


SUBROUTIIE F0RCE1 COMPUTES THE CURVATURE OF THE JET CEITERLIIE. 

LATEST REVISION - 23 APR 1987 *** 

*** PARAMETER DESCRIPTIOI *** 

IHPUT : 

X - DISTAICE FROM THE JET ORIGII 

DY1DX - JET CEITERLIIE SLOPE 

OUTPUT: 

UODOT - DERIVATIVE OF THE EXTERIAL VELOCITY 
ADOT - DERIVATIVE OF THE ASYMMETRY FACTOR 

D2Y1DX - SECOHD DERIVATIVE OF THE JET CEITERLIIE 


***************************************************************************** 

IMPLICIT REAL*8( A-H ,0~Z) 

COMMOI UO,Ul ,P,A f B # Yl ,ALP 
EXTERIAL USQ 

*** IIITI ALIZE IITEGRATIOI PARAMETERS *** 

ETAMAX=2 . 4DO 
YL=Y1-ETAMAX*B/ALP 
YU=Y1+ETAMAX*B/ ALP 
IIHT=20 

*** COMPUTE PRIMARY JET MOMEITUM **** 

RMJ=SIMS(USq,YL,YU,IIIT) 

*** FI ID THE VELOCITY COMPOIEITS 01 EITHER SIDE OF THE JET **♦ 

CALL UPPVLCCX ,UU,UUD0T) 

CALL LWRVLC(X ,UL ,ULD0T) 

*** COMPUTE THE PRESSURE JUMP ACROSS THE JET **♦ 

DELP=0 . 5D0* (UL*UL~UU*UU) 

*♦* COMPUTE THE CURVATURE OF THE JET CEITERLIIE *** 

C 

RKAP=- DELP/RMJ 
C 

UODOT=UUDOT 

ADOT=ULDOT-UUDOT 

C 

C COMPUTE THE SECOID DERIVATIVE OF THE JET CEITERLIIE ♦** 

C 

D2Y1DX=RKAP* (1+DY1DX**2) **1 . 5 DO 
C 

RETURI 

EID 
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SUBROUTINE FSTRH(U10,BO,UOO,AO,GlHHi,VO) 
C 


O* ******************** ******** *********************************************** 

c 

C SUBROUTIIE FSTRH COMPUTES THE V1LUE OF THE FREE STREAM VELOCITY GIVE! 

C THE PARAMETER GAMMA AID THE VALUES OF THE JET PARAMETERS. 

C 

C *** LATEST REVISIOI - 23 APR 1987 *♦* 

C 

C **♦ PARAMETER DESCRIPTIOI *** 

C IIPUT : 

C U10 - IIITIAL JET EXCESS VELOCITY 

C BO - IIITIAL JET HALF-WIDTH 

C AO - IIITIAL ASYMMETRY FACTOR 

C GAMMA - FREE STREAM SPEED PARAMETER 

C 
C 

C VO 
C 


OUTPUT: 

- FREE STREAM VELOCITY 


*************** 


C 

IMPLICIT REAL*8(A-H,0-Z ) 

COMMOI U0,U1,P,A,B,Y1,ALP 
C 

C *** COMPUTE THE PRIMARY JET HOKEITUM FLUX *♦* 

C 


RMJ*2 . ODO* BO/ ALP* (2 . 0D0/3 . ODO*U10**2+2 . 0DO*U00*U10+U10*A0- 
1 AO**2/ 4 . ODO) 


*** COMPUTE THE FREE STREAM VELOCITY 


*** 


VO=GAMMA*DSQRT(RMJ/4 .ODO) 

RETURI 

EID 


o o 
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APPENDIX B. COMPUTER CODE 


SUBROUTIIE GETPRMCXJ , YJ , Y1DOTO, XEXIT, DIFSLP, XDIFF, GAMMA , 

1 U10 , BO, DUMP!) 

C 

O* ************************************************************** ************* 

C 

C THIS SUBROUTIIE READS IIPUTS FROM DATA FILE CASE.DAT. THE IIFORMATIOI 
C ACQUIRED PERTAIIS TO THE DETAILS OF THE SHROUD BODY AS HELL AS THE FLOW 
C COHDITIOHS. 

C 

C *** LATEST REVISION - 1 FEB 198T *** 

*** PARAMETER DESCRIPTIOI *** 

C 

C OUTPUT: 

C IJ - X CQQRDIIATE OF THE JET IOZZLE POSITIOI 

C YJ - Y COORDIIATE OF THE JET IOZZLE 

C Y1DOTO IIITIAL SLOPE OF THE JET CEHTERLIIE 
C XEXIT- X COORDIIATE OF THE SHROUD EXIT 
C DIFSLP DIFFUSER SLOPE 

C XDIFF- X COORDIIATE OF THE START OF THE DIFFUSER 
C GAMMA- FREE-STREAM SPEED PARAMETER 
C U10 - JET IIITIAL CEITERLIIE VELOCITY 

C BO - IIITIAL JET HALF-WIDTH 

C DUMP1 - LOGICAL PARAMETER TO COITROL OUTPUT 
C 

O********************* *********************************************** ******** 

c 

IMPLICIT REAL*8(A-H,0-Z) 

LOGICAL DUMP1 
C 

READ(4 ,*) XJ 
READ (4,*) YJ 
READC4,*) Y1DOTO 
READC4,*) XEXIT 
READC4,*) DIFSLP 
READC4 ,*) XDIFF 
READC4 ,*) GAMMA 
READC4,*) U10 
READ(4,*) BO 
READ (4,*) DUMP1 
C 

RETURI 

EID 
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SUBROUTI IE J ETMAT( I JLS , IJLF , I JUS , I JUF , XCP , YCP , ALPHA ,0,1101,1102, 

1 PD , PE , PF , PG , PH , PPI , C , WORK , A , B , AMAT , BMAT , I , 

2 AL VR , BLWR , AUPP , BUPP) 


C* ***************************************************************** *********** 


C 

C SUBROUTIIE JETMAT COMPUTES THE IIFLUEICE COEFFICIEITS FOR THE MATCHIHG 
C POUTS ALOIG THE JET BOUIDARIES . 

C 

C *** LATEST REVISIOI - 23 APR 1987 *** 

C 

C *** PARAMETER DESCRIPTIOI *♦* 

C 

C IIPUT: 

C IJLS - PAIEL I UMBER OF THE BEGIIIIIG OF THE LOWER JET BQUIDARY 

C IJLF - PAIEL I UMBER OF THE EID OF THE LOWER JET BOUIDARY 

C IJUS - PAIEL I UMBER OF THE BEGIIIIIG OF THE UPPER JET BOUIDARY 

C IJUF - PAIEL I UMBER OF THE EID OF THE UPPER JET BOUIDARY 

C XCP - VECTOR OF COITROL POUT X COORDINATES 

C YCP - VECTOR OF COITROL POUT Y COORDIIATES 

C ALPHA - VECTOR COITAIIIIG THE SURFACE SLOPES 
CD - VECTOR COITAIIIIG THE PAIEL LEIGTHS 
C IID1 - VECTOR OF IIDEX OF PAIEL ADJOIIIIG TO THE LEFT 

C IID2 - VECTOR OF IIDEI OF PAIEL ADJOIIIIG TO THE RIGHT 

C PD.. PPI- SOURCE PARABOLIC FIT COEFFICIEITS 
C C - VECTOR OF SURFACE CURVATURE COEFFICIEITS 

C WORK - WORK SPACE VECTOR 

C A - WORK SPACE VECTOR 

C B - WORK SPACE VECTOR 

C AMAT - MATRIX OF X COMPOIEIT INDUCED VELOCITIES 

C BMAT - MATRIX OF Y COMPOIEIT IIDUCED VELOCITIES 

Cl - I UMBER OF PAIELS 
C 


OUTPUT: 

ALWR - MATRIX OF U-VELOCITY IIFLUEICE COEFFICIEITS 
BLWR - MATRIX OF V-VELOCITY IIFLUEICE COEFFICIEITS 
AUPP - MATRIX OF U-VELOCITY IIFLUEICE COEFFICIEITS 
BUPP - MATRIX OF V-VELOCITY IIFLUEICE COEFFICIEITS 


FOR THE LOWER BOUIDARY 
FOR THE LOWER BOUNDARY 
FOR THE UPPER BOUNDARY 
FOR THE UPPER BOUNDARY 


IMPLICIT REAL*8(A-H,0-Z) 

DIHEISIOI ICP(I) , YCP(I) .ALPHA (I) ,D(I) ,PD(I) ,PE(I) ,PF(I) ,PG(I) , 

1 PH(I) ,PPI(I) ,C(«) ,1101(1) ,1102(1) ,V0RK(8*I) , 

2 A(l) ,B(I) , AKAT(I,I) ,BHAT(I,I) , 

3 ALVR(IJLF-IJLS+1 ,1) ,BLVR(IJLF-IJLS+1 ,1) , 

4 AUPP(IJUF-IJUS+1 ,1) ,BUPP(IJUF-IJUS+1 ,1) 

AREA15 IS SHARED VITH LVRVLC, OIEJET, AID VLCJET *** 

*** AREA16 IS SHARED WITH UPPVLC, OIEJET, AID VLCJET *** 

COHHOI / AREA15/ IL(IOO) , YL(IOO) ,UL(100) ,VL(100) ,SPLIUL(100,3) ,IL 
COMMOI / AREA1 6/ 10(100) ,YU(100) ,UU(100) ,VU(100) ,SPLIUU(100, 3) ,IU 

*** CALCULATE AID STORE IIFLUEICE COEFFICIEITS FOR THE LOVER *** 
**« JET BOUIDARY *** 

C 

IL-IJLF-IJLS+1 

C 

DO I=IJLF,IJLS,-1 
C 
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APPENDIX B. COMPUTER CODE 


II=IJLF-I+1 
IL(II) =XCPCI) 

YL(II)=YCP(I) 

DO J=1,I 

ALVRClI, J)=AMATCI , J) 

BLVRCII , J)*BRAT(I , J) 

EHD DO 

**♦ USE A POUT SLIGHTLY OFF THE JET BOUIDARY VHEI COHPUTIHG *** 
*** THE VELOCITIES IEAR THE COITROL STATIOI TO AVOID THE SPIKE *** 
*** CAUSED BY THE CURVATURE DISCOITIIUITY *** 

IFCl.LT. CIJLS+5)) thei 

YH=YCP(I)-(XCP(I)-ICP(IJLS+5))+0.15D0 

CALL IHFLCE(XCPCI) , YM , XCP , YCP , ALPHA , D , IID1 , I ID2 , PD , PE , 

1 PF,PG,PH,PPI,C,VORK,I,A,B) 

DO J-l.I 

ALHRCII , J)=A(J> 

EHD DO 

EID IF 

EHD DO 

*** CALCULATE AID STORE THE IIFLUEICE COEFFICIEITS FOR THE *** 

*** UPPER BOUIDARY +** 

IU=IJUF-IJUS+1 
DO I=IJUS , IJUF 

II=I-IJUS+1 

XUCID^XCPCI) 

YU(II) =YCP(I) 

DO J=1,I 

AUPPCII, J)=AMAT(I , J) 

BUPPCII , J)=BMAT(I , j) 

EHD DO 

*** USE A POUT SLIGHTLY OFF THE JET BOUIDARY VHEI COMPUTIIG 

*** THE VELOCITIES IEAR THE COITROL STATIOI TO AVOID THE SPIKE **+ 

**♦ CAUSED BY THE CURVATURE DISCOITIIUITY *** 

IF(I . GT. (IJUF-5) ) THEI 

YM= YCP ( I ) + ( XCP ( I ) - XCP ( IJUF- S ) ) ♦ 0 . 1 5DO 

CALL IIFLCECXCP(I) , YH, XCP, YCP, ALPHA, D,IID1,IID2, PD, PE, 

1 PF,PG,PH,PPI,C,VORK,*,A,B) 

DO J=1,I 

AUPPCII, J)=A(J) 

EID DO 

EID IF 

EHD DO 

*** STAIDARDIZE THE X COORDIIATE VECTORS **♦ 

DO 1=1, IL 

XUCI)=XL(I) 

EHD DO 
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RETURJ 

EID 


o o 
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APPENDIX B. COMPUTER CODE 


SUBROUTISE LVRVLC ( X , U , UDOT) 

C 

c ** ******** ****************************************************** ************* 

c 

C SUBROUTINE LWRVLC COMPUTES THE HORIZOITAL COMPONENT OF VELOCITY 01 THE 
C LOWER SIDE OF THE JET BOUIDARY. 

*** LATEST REVISIOI - 24 APR 1987 *♦* 

C 

C *** PARAMETER DESCRIPTION *♦* 

C INPUT : 

C X - DISTANCE FROM THE JET ORIGIN 
C OUTPUT 

C U - HORIZONTAL COMPONENT OF VELOCITY AT THE STATION X 

C UDOT - dU/dx AT THE STATION X 
C 

O ************************ ******************* ******************** ************* 

c 

IMPLICIT REAL*8( A-H , O-Z) 

C 

C *** AREA1S IS SHARED WITH JETMAT, JETVLC AND ONEJET *** 

C 

COMMON /AREA15/ XL(IOO) , YL(IOO) ,UL(100) ,VL(lOO) ,SPLNUL(100,3) ,NL 
C 

CALL INTRPCX , XL ,UL , NL ,SPLNUL, 100 ,U, UDOT, D2UDX2 , IER) 

IF(IER.IE.O) THEN 
WRITE(3 , 10) IER, X 

10 FORMATS ERROR IN LWRVLC: INTRP RETURNED WITH IER = M3, 

1 ’ I = >,F10.5) 

STOP 
END IF 
C 

RETURN 

END 
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SUBROUTIIE OIEJETCIJLS , IJLF,IJUS ,IJUF, YJ , Y1DQTO,U10, BO, VO , 

1 ALPHA , VI , I , DUMP , I CALL , UOO , AO , X EID , Y1 El D , RES ) 


SUBROUTIIE 0 IE JET PERFORMS THE VISCOUS CALCULATIOI WITHII THE VISCOUS- * 
C IIVISCID IITERACTIOI REGIOI. THE DERIVATIVE OF UO IS FOUID FROM THE * 
C IIVISCID SOLUTIOI VIA A SPLIIE FIT, AID IS USED AS A FORCIIG TERM II * 
C THE VISCOUS SOLUTIOI. * 
C * 
C LATEST REVISIOI - 24 APR 1987 **♦ * 
C * 
C *** PARAMETER DESCRIPTIOI *♦* * 
C * 
C IIPUT : * 
C IJLS PAIEL I UMBER OF THE BEGIIIIIG OF THE LOVER JET BOUIDARY * 
C IJLF PAIEL IUHBER OF THE EID OF THE LOVER JET BOUIDARY * 
C IJUS PAIEL IUMBER OF THE BEGIIIIIG OF THE UPPER JET BOUIDARY * 
C IJUF PAIEL IUMBER OF THE EID OF THE UPPER JET BOUIDARY * 
C YJ - JET IIITIAL Y COORDIIATE * 
C Y1DOTO JET CEITERLIIE IIITIAL SLOPE * 
C UlO - JET IIITIAL CEITERLIIE VELOCITY * 
C BO - JET IIITIAL HALF-VIDTH * 
C VO - FREE STREAM VELOCITY * 
C ALPHA PAIEL ORIEITATIOI AIGLES * 
C VI - VECTOR COITAIIIIG THE IORMAL VELOCITIES TO THE PAHELS ALOIG THE JET * 
C BOUIDARY II THE VISCOUS-IIVISCID IITERACTIOI REGIOI * 
Cl- IUMBER OF PAIELS * 
C DUMP- LOGICAL PARAMETER FOR COITROLLIIG OUTPUT * 
C ICALL IIDEX TO KEEP TRACK OF SUCCESSIVE CALLS TO OIEJET * 
C * 
C OUTPUT: * 
C UOO - VALUE OF UO AT THE JET EXIT * 
C AO - VALUE OF A AT THE JET EXIT ♦ 
C VI - UPDATED IORMAL VELOCITY VECTOR * 
C IEID- I STATIC! AT VHICH THE VISCOUS-IIVISCID MATCHIIG EIDS ♦ 
C Y1EID VALUE OF Y1 AT XEID * 
C RES - MAXIMUM RESIDUAL II THE VISCOUS-IIVISCID MATCHIIG * 
C * 
C******* ************************************************************** ********* 


IMPLICIT REAL*8(A-H,0-Z) 

LOGICAL DUMP 

DIMEISIOI S(7) ,SD(7) ,RD(6) ,V(7,9) ,C(24) , ALPHA(I) , VI(I) 

C0MM0I U0,U1 ,P, A,B, Y1 , ALP 
C 

C *** AREA15 IS SHARED VITH JETMAT, LVRVLC, AID VLCJET **♦ 

C ♦** AREA16 IS SHARED VITH JETMAT, UPPVLC, AID VLCJET **♦ 

C 

COMMOI /AREA15/ XL(IOO) , YL(lOO) ,UL(100) ,VL(100) ,SPLIUL(100,3) ,IL 
COMMOI /AREA16/ XU(lOO) ,YU(100) ,UU(100) ,VU(100) ,SPLIUU(100,3) ,IU 
C 

EXTERIAL DERI VI 
C 

I F ( DUMP) THEI 
REVIID 9 
REVIID 10 
REVIID 11 
EID IF 


REVIID 20 
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c 

M=7 

MW=7 

TOL= . 001 DO 
IID=1 
C 

C *** OBTAII THE IITERPOLATED VALUE OF THE HORIZOITAL COMPOIEHT OF *** 

C *** IIVISCID VELOCITY AT THE JET IOZZLE *** 

C 

I=IU(2)- . 001 

CALL UPPVLCCX,UUU,UUDOT) 

CALL LVR VLC ( X , ULL , ULDO T ) 

UOO=UUU 

AO=ULL-UUU 

C 

C *** DEFIIE IIITIAL VALUES OF THE JET PARAMETERS *++ 

C 

S(1)=U00 
S (2) =U10 
S (3) =0 . ODO 
S (4) =A0 
S (5) =B0 
S (6) =YJ 
S (7) =Y1DOTO 
RES=0 . 0 
C 

C *** EITER LOOP TO MARCH THE VISCOUS EQUATIOIS 

C 

SE=IJUF-IJUS+1 


C 

IFCDUMP) THEI 


35 

WRITE(9, 35) 
FORMATC/ , 25X, ; 

' LOWER JET VELOCITIES ’) 


40 

VRITEC9, 40) 
FORMATC/, ’ 

I Y UIIV 

VI IV 

45 

k ’ 

WRITEClO , 45) 
FORMATC/, 25X, 

VIOLD VIIEW RES’) 

> UPPER JET VELOCITIES ’) 


50 

WRITEClO, 40) 
WRITECll , 50) 
FORMATC/, 25X, 

» JET SOLUTIOI ’) 


55 

WRITECll, 55) 
FORMATC/, ’ 

I UO,UODOT U1,U1D0T 

P,PDOT 


1 » A,ADOT B,BDOT Y1,Y1D0T DY1D,D2Y1 J ) 

EHD IF 
C 

DO 10 J=2 , IE 
XEID *XU(J) 

CALL DVERK(M, DERI VI ,1,8 ,IEID J TOL > IID f C J MV ,V,IER) 
IF(IID.LT.O.OR.IER.GT.O) THEI 
VRITEC3, 150) IID, IER 

150 FORMATC / , * ERROR II TWOJET, DVERK RETURIED WITH IID * ’,15, 

ft ’IER * ’,15) 

STOP 
EID IF 
C 

C *** OBTAII THE LOCAL DERIVATIVES OF THE JET PARAMETERS ♦** 

C 

CALL DERI VI (M, XEID, S , SD) 

C 

WRITE(20 , 62) XEID,Y1 
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62 FORMAT(2F10.5) 

IF(DUHP) THEI 

WRITE<11 ,60) XU( J) , (S(II) ,11*1 ,7) ,XL( J) , (SD(II) ,11*1 ,7) 

60 FORMAT(8F10.5,/8F10.5,/) 

EID IF 
C 

C **♦ COMPUTE THE VERTICAL COMPOIEIT OF VaOCITY AT THE JET 

C *** BOUIDARY FROM THE VISCOUS SOLUTIOI *** 

C 

DO 1=1,5 

RD(I)=SD(I) 

EID DO 
RD(6) =0. ODO 
C 

VVISU=V(RD, YU( J)) 

VVISL*V(RD, YL( J)) 

C 

C *** UPDATE THE SUCTIOI VELOCITY 01 THE LOWER JET BOUIDARY 

C 

RL=VVISL-VL(J) 

Wl=l .ODO-0.8DO/DFLOAT(IE-1)*DFLOAT(J-1) 

VIEVL* VKIJLF- C J-l) )+Wl*RL 
RESL=DABS(RL) 

IF(RESL. GT. RES) RES=RESL 
IF(DUMP) THEI 

WRITE(9, 30) XL( J) , YL( J) ,UL(J) ,VL(J) ,VVISL,VI(IJLF-(J-1)) , 
ft VIEVL , RL 

30 FORMAT(8F10. 5) 

EID IF 

*** MARE A CORRECTIOI TO THE LOCAL EITRAIIMEIT VELOCITY 
VI ( I JLF- ( J-l ) ) =VIEWL 

**♦ UPDATE THE SUCTIOI VELOCITY 01 THE UPPER JET BOUIDARY ♦** 


RU=VVISU“VU( J) 

VI =- ( 1 . ODO-O . 8D0/ DFLOAT (IE-1 ) ♦DFLO AT ( J-l ) ) 

VIEVU* VI ( I JUS+ ( J- 1 ) ) +W1 *RU 
RESU*DABS (RU) 

IFCRESU. GT. RES) RES=RESU 
I F( DUMP) THEI 

VRITE(10,30) IU( J) , YU(J) ,UU(J) , VU(J) , VVISU, VKUUS+C J-l)) , 
ft VIEVU, RU 

EID IF 

*** MAKE A CORRECTIOI TO THE LOCAL EITRAIIMEIT VELOCITY *♦* 
C 

VI(IJUS+(J-1))*VIEVU 

C 

10 COITIIUE 
C 

Y1EID*Y1 

C 

RETURI 

EID 
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APPENDIX B. COMPUTER CODE 


S UBROUTI IE PERFO R( ALPHA , D , AMAT , BMAT ,Q ,1, VO, BETA , 

1 U1 0 , U00 , AO , BO , DFDRAG ,1S , IF, IJLF , I JUS , PHI ) 

C 

C*** ********** ********* ********************************* ********************** 

c 

C SUBROUTINE PERFOR COMPUTES THE THRUST AUGMENTATION RATIO IN TWO 
C INDEPENDENT CALCULATIONS; THROUGH INTEGRATION OF THE SURFACE PRESSURES AND 
C THROUGH USE OF THE BLASIUS INTEGRAL LAW. IN THE SURFACE PRESSURE BASED 
C CALCULATION, THE SUCTION ACTING ON BOTH THE EJECTOR SHROUD LEADING EDGE AND 
C THE PRIMARY JET NOZZLE ARE TAKEN INTO ACCOUNT. 

*♦* LATEST REVISION - 2 FEB 1987 + ** 

*** PARAMETER DESCRIPTION *** 


INPUT: * 

ALPHA - VECTOR CONTAINING THE SURFACE SLOPES * 

D - VECTOR CONTAINING THE PANEL LENGTHS * 

AMAT - MATRIX OF HORIZONTAL INDUCED VELOCITY COEFFICIENTS * 

BMAT - MATRIX OF VERTICAL INDUCED VELOCITY COEFFICIENTS * 

q - VECTOR CONTAINING THE SOURCE STRENGTHS * 

N - NUMBER OF PANELS ♦ 

VO - FREE STREAM SPEED * 

BETA - ANGLE OF ATTACK * 

UlO - INITIAL JET VELOCITY * 

UOO - INITIAL JET EXTERNAL VELOCITY * 

AO - INITIAL ASYMMETRY FACTOR * 

BO - INITIAL JET HALF-WIDTH * 

DFDRAG- DIFFUSER ASSOCIATED DRAG ♦ 

NS - INDEX OF BEGINNING OF SHROUD NOSE * 

NF - INDEX OF END OF SHROUD NOSE * 

NJLF - INDEX OF FINISH OF JET LOWER BOUNDARY * 

NJUS - INDEX OF START OF JET UPPER BOUNDARY * 

OUTPUT: * 

PHI - THRUST AUGMENTATION COMPUTED USING THE MOMENTUM THEOREM * 

***************************** ****************************************** ****** 

IMPLICIT REAL*8(A-H,0-Z) 

DIMENSION ALPHA(N) , D(N) , AMAT(N , N) , BMAT(N,N) , Q(N) 

COMMON UO,Ul , P, A ,B , Y1 , ALP 

*** AREA 18 IS SHARED WITH TWOJET *** 

COMMON /AREA18/ H,HDOT 

EXTERNAL U,USQ 

PI=3 . 1415926DO 

UOX=VO*DCOS (BETA) 

UOY=VO*DSIN(BETA) 

*** COMPUTE THE PRIMARY JET MOMENTUM *** 

RHJ =2 . ODO*BO/ ALP* ( 2 . 0D0/3 . ODO*Ul 0*2+2 . 0D0*U00*U10+U10*A0- 
1 A0**2/4.0D0-U10*VQ) 


*** INTEGRATE THE SURFACE PRESSURES ON THE EJECTOR SHROUD 


*** 
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SUMl =O.ODO 
SUM2=0 . ODO 
K=0 

■I=IF-IS+1 
R=1 . ODO 

DTH=-PI/DFLO AT (II) 

TH*3 . ODO/2 . ODO+PI+DTH/2 . ODO 
DO I=IS,IF 
K=K+1 
VT=2 .ODO 

I F ( DM0 D ( DFLO AT ( K) , 2 . ODO) . LT . 0 . 1 DO) VT=4 . ODO 
IF(K.EQ.l.OR.K.Eq.II) VT=1.0D0 
C 

SUM 3=0 . ODO 
SUM 4=0 . ODO 
DO J*1,I 

SUM3=SUM3+AMAT(I , J)*Q(J) 

S UM4=S UM4+BMAT ( I f J ) ♦ Q ( J ) 

EID DO 
C 

UU=SUM3+U0X 

VV=SUM4+U0Y 

PR=0 . 5 DO* (UU**2+VV**2-VQ**2) 

C 

SUMl =SUH1 +PR*WT/3 . ODO* DCOS (TH) *R*DTH 
SUM2=SUM2+PR*D(I)*DSII(ALPHA(I) ) 

TH=TH+DTH 
EID DO 
C 

TS1 =SUM1 
TS2=SUM2 

WRITE(21,5) TS1 ,TS2 

5 FORMATC //, 7 SHROUD THRUST SIMPSOIS RULE, MIDPOIBT RULE: 
C 

C *** IITEGRATE THE SURFACE PRESSURE 01 THE JET IOZZLE 

C 

SUMl *0 . ODO 
SUM2-0.0D0 
■I=IJUS-IJLF+1 
R= . 05 DO 

DTH=-PI/DFLOAT(II) 

TH=3 . ODO/2 . ODO* PI +DTH/ 2 . ODO 
K=0 

DO I»IJLF,VJUS 
K*K+1 
VT=2 .ODO 

IF(DMOD(DFLOAT(K) ,2. ODO) .LT.0.1D0) WT»4.0DO 
IF(K.EQ.l .OR.K.EQ .IV) VT*1 . ODO 
C 

SUH3=O.ODO 
SUM4*0. ODO 
DO J*1,I 

S UM3=SUM3+AMAT (I,J)*Q(J) 

S UM4-SUM4+BMAT ( I , J ) * Q ( J ) 

EID DO 
C 

UU*SUM3+U0X 

VV=SUM4+U0Y 

PR=0 . 5DO*(UU**2+VV**2-VO**2) 

C 

SUMl =SUMl+PR*WT/3 . ODO* COS (TH) *R*DTH 


,2F10 . 5) 

*** 
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SUM2=SUM2+PR*D(I) *DSII( ALPHA(I) ) 

TH=TH+DTH 
EID DO 
C 

TC1*SUM1 

TC2=SUM2 

C 

VRITE(21 , 6) TCI , TC2 

6 F0RMAT ( } I0ZZLE CAP THRUST SIMPSOIS RULE, MIDPOIIT RULE: > ,2F10.5) 

C 

TAUX=TS1+TC1 

C 

C *** COMPUTE THE MOMEITUM FLUX AT THE EJECTOR EXIT *** 

C 

ETAH=3.0D0 

TP=BO/ALP*((UOO**2+UOO*AO+AO**2/2-ODO-VO**2)*ETAH- 
1 2 . ODO* (UO*ETAH+DLOG(2 . ODO) /2 . ODO*A) *V0) 

PHISP=1 . ODO+CTAUX+TP-DFDRAG) /RMJ 
C 

TGROSS=SIMS(USQ,O.ODO,H,30)-VO*SIMS(U,O.ODO,H,30) 

PHIMT=TGROSS/RMJ 

C 

TIHD=TGROSS- (RMJ+TP) +DFDRAG 
C 

VRITEC21 ,10) RMJ ,TGROSS ,TAUX,TIID,DFDRAG,PHISP,PHIMT 
10 FORMATC//,’ JET MOMEITUM = ’.F10.5, 

1 » EXITIIG MOMEITUM = \F10.5,/, 

2 » IIDUCED THRUST COMPUTED FROM SURFACE PRESSURES = \F10.5,/, 

3 » IIDUCED THRUST COMPUTED FROM MOMEITUM THEOREM = \F10.5,/, 

4 » PRESSURE DRAG ASSOCIATED WITH THE DIFFUSER = \F10.5,/, 

4 J THRUST AUGMEITATIOI RATIO FROM SURFACE PRESSURES * >,F10.5,/, 

5 ’ THRUST AUGMEITATIOI RATIO FROM MOMEITUM THEOREM ■ >,F10.5) 

C 

PHI=PHIMT 

C 

RETURI 

EHD 
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SUBROUTIIE TWO JET( XEIIT , XBEGII , DUMP , PEXIT , DFDR1G , IER) 

C 

C************** **************************************************** ************ 

c * 

C SUBROUTIIE TWO JET MARCHES THE VISCOUS SOLUTIOI VITHII THE CHAIIEL BEVOSD * 

C THE HATCHIIG REGION. * * 

C ♦ 

C *** LATEST REVISIOI - 24 APR 1987 *** * 

C * 

C *** PARAMETER DESCRIPTION *** * 

C * 

C IIPUT: * 

C XEXIT - X COORDINATE OF THE SHROUD EXIT * 

C XBEGII - X COORDINATE TO START THE MARCHING * 

C DUMP - LOGICAL PARAMETER USED TO CONTROL OUTPUT * 

C * 

C OUTPUT: * 

C PEXIT - STATIC PRESSURE COMPUTED BY THE VISCOUS SOLUTION AT THE EXIT * 

C DFDRAG - DRAG ASSOCIATED WITH THE DIFFUSER * 

C IER - ERROR PARAMETER: 0 FOR NORMAL EXECUTION, 1 FOR ERROR * 

C * 

C** ***************************************************************** *********** 
C 

IMPLICIT REAL*8(A-H,0-Z) 

LOGICAL DUMP 

DIMENSION S(7) ,SD(7) ,W(7,9) ,C(24) 

COMMON UO , U1 , P , A , B , Y1 , ALP 
C 

C *** ERROR IS SHARED WITH DERIV2 *♦* 

C *** AREA 18 IS SHARED WITH PERFOR *** 

C *** AREA 21 IS SHARED WITH DUOAUG AND DERIV2 *** 

C 

COMMON /ERROR/ I ERROR 
COMMON /AREA18/ H f HDOT 
COMMON /AREA21/ DIFSLP,XDIFF 

C 

EXTERNAL DERIV2,USQ,U 
C 

IF(DUMP) REWIND 12 
C 

IERR0R=O 

C 

C *** INITIALIZE PARAMETERS FOR THE DVERK ROUTINE *** 

C 

M=7 

HW*7 

TOL=l . D-4 
IND=1 
C 

C *** DECODE THE S VECTOR SO THAT THE VALUES MAY BE SENT IN COMMON *** 

C 

S(l)«UO 
S(2)=U1 
S(3)=P 
S(4)=A 
S(5)=B 
S (6) *Y1 
S (7) *0 . ODO 
C 

C *** COMPUTE THE STARTING MOMENTUM AND MASS FLUX 

C 


*** 
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RMJ1=SIMS (USQ , 0 . ODO, 2 . ODO , 100)+2 . ODO*P 
RMDDT1=SIMS(U,0.0D0,2.0D0,100) 

C 

IF(DUMP) THEI 

VRITE(12 , 50) RMJ1 , RMD0T1 

50 F0RHAT(/,2SX, > JET II CHAIIEL SOLUTIOI > ,/, 

1 * IIITIAL JET MOMEITUM = \F10.5,> IIITIAL MASS = \ 

2 F10.5) 

WRJTEC12 , 55) 

55 FORMATC/,’ X UO,UODOT U1,U1D0T P,PDOT\ 

1 J A, ADOT B,BDOT Y1,Y1D0T ») 

EHD IF 
C 

C *** IIITIALIZE PARAMETERS FOR THE IITEGRATIOI OF THE VISCOUS EQS . 

C 

DX=0 . 5 DO 

DIST=XEXIT-XBEGII 

HPTS=HIHT(DIST/DX) 

DX=DIST/DFLOAT(HPTS) 

X=XBEGII 
PSTART=P 
HSTART=2 . ODO 

♦ EITER LOOP TO MARCH THE VISCOUS EqUATIOIS 

C 

DO 1=1 , IPTS 
XEID=X+DX 

CALL DVERK (M , DERI V2 , 1 , S , XEID , TOL f IID f C , MV , W , IER) 

IFCIERROR . EQ .1) THEI 
IER=1 
RETURI 
EID IF 

IFCIID.LT.O.OR. IER.GT. 0) THEI 
VRITE(3, 150) IID, IER 

150 FORMATC/,’ ERROR II TWOJET, DVERK RETURIED WITH IID = ’,15, 

t ’ IER = ’ ,15) 

IER=1 
RETURI 
EID IF 
C 
C 

IF( DUMP) THEI 

CALL DERIV2(M,X,S,SD) 

WRITE(12 ,60) X, (S( J) , J=1 ,6) ,X, (SD(J) , J=1 ,6) 

60 FO RMAT ( 7F1 1 . 5 , / , 7F11 . 5 , / ) 

EID IF 

C 

EHD DO 
C 

C ♦** STORE THE EXIT PRESSURE AID COMPUTE THE DIFFUSER PRESSURE DRAG 

C 

PEIIT=P 

D FDR AG =S ( 7) - ( P- PS TART) * HS TART 
C 

C *** COMPUTE THE FIIAL MOMEITUM AID MASS FLUX 

C 

RM J =SI MS ( US Q , 0 . ODO , H , 1 00) +P* HS T ART+DFDRAG 
RMD0T=SIMS(U,0. 0D0,H,100) 

IF(DUMP) THEI 

WRITE(12,70) RMJ , RMDGT 

70 FORMATS FIIAL MOMEITUM = \F10.5,’ FIIAL MASS = ’,F10.5) 


COMPUTER CODE 


*** 






*** 
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EID IF 

**♦ IF MOMEITUM IS IQT COVSERVED WRITE II ERROR MESSAGE 

ERR* (RMJ-RMJ1) /RMJ1 
IFCDABS(ERR) .GT.5.D-2) THEI 
WRITE(3,80) 

80 FORMAT ( * ERROR II TWO JET: SIIGULARITIES II CHAIBEL SOLUTION) 

C IER*1 

RETURI 
EHD IF 
C 

IER=0 


*** 


C 


RETURI 

EID 


ooonooonoo 
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APPENDIX B. COMPUTER CODE 


FUICTIOI U( Y) 

C 

c«* *************************************************************************** 

c 

FUICTIOI U COMPUTES THE JET VELOCITY 

LATEST REVISIOI - 24 APR 1987 *** 

*** PARAMETER DESCRIPTIOI **♦ 

IIPUT : 

Y - DISTAICE FROM THE JET CEITERLIIE 

OUTPUT: 

U - HORIZOITAL COMPOIEIT OF VELOCITY 

C***** ***************** ********************************* *********** *********** 

c 

IMPLICIT REAL*8( A-H ,0-Z) 

COMMOI UO , U1 , P , A , B , Y1 , ALP 
C 

ARG1=ALP*(Y+Y1)/B 
ARG2=ALP*(Y“Y1)/B 
T1=DTAIH( ARG1) 

T2=DTAIH( ARG2) 

S1SQ=1 .ODO-T1**2 
S2SQ=1 .ODO-T2**2 
C 

U=UO+A/2.0DO*(Tl-T2)+Ul*(SlSq+S2Sq) 

C 

RETURJ 

ESD 
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SUBROUTINE UPPVLC(I,U,UDOT) 

C 

O**** I********************************************************** ***********! 

c 

C SUBROUTIIE UPPVLC COMPUTES THE HORIZOITAL COMPDIEIT OF VELOCITY OH THE 
C UPPER SIDE OF THE JET BOUIDARY. 

C 

C *♦* LATEST REVISIOI - 24 APR 1987 
C 

C ♦** PARAMETER DESCRIPTIOI *** 

C IIPUT : 

C X - DISTAICE FROM THE JET ORIGII 
C OUTPUT 

C U - HORIZOHTAL COKPOIEHT OF VELOCITY AT THE STATIOI X 

C UDOT - dU/dx AT THE STATIOI X 
C 

C 

IMPLICIT REAL*8(A-H,0-Z) 

C 

C *** AREA16 IS SHARED WITH JETMAT, VLCJET, AID OHEJET ♦♦♦ 

C 

COMMOI /AREA16/ XU(IOO) , YU(IOO) ,UU(100) , VU(IOO) ,SPLIUU(lOO ,3) , IU 
C 

CALL IITRP(X,XU,UU,IU,SPLIUU, 1 00, U, UDOT, D2UDI2, IER) 

IF(IER.IE.O) THEI 
WRITEC3, 10) IER, X 

10 FORMATS ERROR II UPPVLC: IITRP RETURIED WITH IER = M3, 

1 > X - 9 , FI 0 . 5 ) 

STOP 
EID IF 
C 

RETURI 

EID 
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FUHCTIOI USQ(Y) 

C 

c* ******************************************************************** ******** 

FUICTIOI USQ COMPUTES THE SQUARE OF THE JET VELOCITY 

C *** LATEST REVISIOI - 24 APR 1987 *** 

C 

C **♦ PARAMETER DESCRIPTIOI *** 

C IIPUT : 

C Y - DISTAICE FROM THE JET CEITERLIIE 

C OUTPUT: 

C USQ - SQUARE OF THE JET VELOCITY 

C 

O ************************************************************** ************** 

c 

IMPLICIT REAL+8C A-H , 0-Z) 

COMMOI UO , U1 , P , A , B , Y1 , ALP 
C 

C=U( Y) 

USQ=C*C 

C 

RETURJ 

ESD 



n n n 


B.3. SUBROUTINE LIBRARIES 


223 


FU1CTI0I V(RD, Y) 

C 

c** ******************************************************************** ******* 

FUICTIOI V COMPUTES THE VERTICIL COHPQIEIT OF THE JET VELOCITY 

C **♦ LATEST REVISIOI - 24 APR 1987 *** 

C 

C ♦** PARAMETER DESCRIPTIOI *** 

C IIPUT: 

C RD - VECTOR COITAIIIIG THE DERIVATIVES OF THE JET PARAMETERS 

C Y - DISTAICE FROM THE JET CEITERLIIE 

C OUTPUT: 

C V - VERTICAL COMPOIEIT OF VELOCITY 

C 

0 ** 4 ******** ****** *************** ************** ********************* *********** 

c 

IMPLICIT REAL*8(A-H,0-Z) 

DIMEHSIOV RD(6) 

COMMOI U0,U1 , P, A,B t Y1 , ALP 
C 

C0IST=ALP/B 

ETA=C0IST*(Y-Y1) 

T=DTAIH(ETA) 

DLC=DLOG(DCOSH(ETA)) 

U0DGT=RD(1) 

U1D0T*RD(2) 

AD0T=RD(4) 

BD0T=RD(5) 

C 

V=-ETA/COIST*UODOT 

1 -T/C0IST*U1D0T 

2 +0 . SDO/COIST* (DLC-ETA) *ADOT 

3 +1 . ODO/ ALP* (-U1*ETA*T**2- (Ul+A/2 . ODO*ETA) *T+0 . 5 DO* A*DLC+ 

4 U1*ETA) *BDOT 
C 

RETURI 

EVD 
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SUBROUTIIE VLCJ ET( 1LWR, BLVR , AUPP , BUPP , Q , IJLS , I JLF , I JOS , IJOF, 

1 B, VO .BETA, PATH) 

C 

C** ****** ******** ********************** ******************************* ********* 

c * 

G SUBROUTIIE VLCJET COMPUTES VALUES OF THE VELOCITY COMPOIEITS AT THE * 

C LOWER AID UPPER SIDES OF THE JET BOUIDARY. * 

C SPLIHE FITS ARE MADE TO THE VELOCITY COMPOIEITS AID THE RESULTS SEIT TO ♦ 
C SUBROUTIIES UPPVLC AID LWRVLC VIA COMMOI BLOCKS. * 

C * 

C LATEST REVISIOI 24 APR 1987 * 

C * 

C *** PARAMETER DESCRIPTIOI *** * 

C * 

C IIPUT : * 

C ALWR - ISFLUEICE COEFFICIEITS FOR U-VELOCITY ALOIG THE LOWER BOUIDARY * 

C BLWR - IIFLUEICE COEFFICIEITS FOR V-VELOCITY ALOIG THE LOWER BOUIDARY * 

C AUPP - IIFLUEICE COEFFICIEITS FOR U-VELOCITY ALOIG THE LOWER BOUIDARY * 

C BUPP - IIFLUEICE COEFFICIEITS FOR V-VELOCITY ALOIG THE LOWER BOUIDARY * 

C Q - VECTOR OF SOURCE STREIGTHS * 

C IJLS - PAHEL I UMBER OF THE BEGIIIIIG OF THE LOWER JET BOUIDARY * 

C IJLF - PAIEL IUMBER OF THE EID OF THE LOWER JET BOUIDARY * 

C IJUS - PAIEL IUMBER OF THE BEGIIIIIG OF THE UPPER JET BOUIDARY ♦ 

C IJUF - PAHEL IUMBER OF THE EID OF THE UPPER JET BOUIDARY * 

Cl - IUMBER OF PAIELS * 

C VO - FREE STREAM SPEED * 

C BETA - AIGLE OF ATTACK * 

C * 

C OUTPUT: * 

C PATM - UPSTREAM AHBIEIT PRESSURE ♦ 

C * 

C SEIT VIA COMMOI BLOCK II AREA15 * 

C XL - VECTOR COITAIIIIG THE ABSCISSA OF THE STATIOIS AT WHICH THE * 

C VELOCITIES ARE CALCULATED * 

C YL - VECTOR COITAIIIIG THE ORDIIATES OF THE STATIOIS AT WHICH THE * 

C VELOCITIES ARE CALCULATED ♦ 

C UL - VECTOR COITAIIIIG THE HORIZOITAL COMPOIEIT OF VELOCITY * 

C VL - VECTOR COITAIIIIG THE VERTICAL COMPOIEIT OF VELOCITY * 

C SPLIUL- SPLIIE FIT PARAMETERS FOR THE U COMPOIEIT OF VELOCITY AT THE JET * 

C LOVER BOUIDARY * 

C * 

C SEIT VIA COMMOI BLOCK II AREA16 * 

C XU - VECTOR COITAIIIIG THE ABSCISSA OF THE STATIOIS AT WHICH THE * 

C VELOCITIES ARE CALCULATED * 

C YU - VECTOR COITAIIIIG THE ORDIIATES OF THE STATIOIS AT WHICH THE * 

C VELOCITIES ARE CALCULATED * 

C UU - VECTOR COITAIIIIG THE HORIZOITAL COMPOIEIT OF VELOCITY * 

C VU - VECTOR COITAIIIIG THE VERTICAL COMPOIEIT OF VELOCITY * 

C SPLIUU- SPLIIE FIT PARAMETERS FOR THE U COMPOIEIT OF VELOCITY AT THE JET * 

C LOVER BOUIDARY * 

C * 

O***************************************************************************** 

c 

IMPLICIT REAL*8(A-H ,0-Z) 

DIMEISIOI ALWR(IJLF-IJLS+1 , I) ,BLWR< IJLF- IJLS +1 ,1) , 

1 AUPP(IJUF-IJUS+1,I) ,BUPP(IJUF-IJUS+1,I) ,Q(I) 

C 

C *** AREA15 IS SHARED WITH JETHAT, LWRVLC, AID OIEJET *** 

C **♦ AREA16 IS SHARED WITH JETMAT, UPPVLC, AID OIEJET *** 

C 


COMMOI /AREA15/ XLC 100) ,YL< 100) ,UL(1 00) ,VL (100) ,SPLIUL( 100,3) , IL 
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C0MM0I / AREA1 6/ XU(IOO) ,YU(100) ,UU(100) ,VU(100) ,SPLIUU(100,3) ,IU 

c 

C *** CALCULATE AID STORE VELOCITY COHPOIEITS FOR THE LOVER *** 

C *** JET BOUVDARY **♦ 

C 

IL=IJLF-IJLS+1 
DO I =1 JLF , IJLS , -1 
II*IJLF-I+1 
SUH1=0.0D0 
SUH2-O.ODO 
DO J=1,I 

SUHl=SUHl+ALVR(II,J)*q<J) 

SUM2=SUH2+BLVR(II,J)*q(J) 

EID DO 

UL(II) -V0*DC0S C BETA) +SUH1 
VL ( I I ) =V0 * DS I I ( BET A) +SUM2 
EHD DO 

*** SPLIIE FIT THE LOVER VELOCITY COHPOIEITS *** 

CALL IQHSCU(XL,UL, IL, SPLIUL,100,IER) 

IFCIER. IE . 0) THEI 
VRITE(5,50) IER 
STOP 
EID IF 

*•* CALCULATE AID STORE VELOCITY COHPOIEITS FOR THE UPPER *** 
*** JET BOUIDARY *♦* 

IU»IJUF-IJUS+1 
DO I*IJUS , IJUF 
II=I-IJUS+1 
SUH1 =0 . ODO 
SUM2=O.ODO 
DO J=1,I 

SUH1 =SUM1 +AUPPCII , J) *Q(J) 

SUH2-SUM2+BUPPCII , J) *q( J) 

EID DO 

UU(II)=V0*DC0S(BETA)+SUH1 
VU C 1 1 ) =V0 * DS 1 1 ( BETA) +S UM2 
EHD DO 

**♦ SPLIIE FIT THE UPPER VELOCITY COHPOIEITS *** 

CALL IQHSCU(XU,UU,IU,SPLIUU,100,IER) 

IFCIER. IE. 0) THEI 
VRITEC5.50) IER 
STOP 
EID IF 

*♦* CALCULATE THE UPSTREAM ATMOSPHERIC PRESSURE *♦* 

PATM=0 .5DO*(UU(2)**2-VO**2) 

50 FORMAT ( 9 ERROR II JETVLC, CALL TO IQHSCU RETURIED VITH > 

1 ’IER * * ,15) 

C 

RETURI 

EID 
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APPENDIX B. COMP UTER CODE 


B.3.3 Panel Method Library PAN2LIB 

S UBRQUTI I E G EOM (XBO D , YBO D , ZETA , CX , CY , WORK , 1 , ICP , YCP , ALPHA , D , 

1 IID1 ,IID2 ,PD,PE, PF, PG,PH,PPI ,C) 

C 

C 

SUBROUTIIE GEOM COMPUTES THE SURFACE ELEMEIT LEIGTH, RADIUS OF 
CURVATURE, ORIEITATIOI II SPACE, AID PARABOLIC FIT COEFFICIEITS 

**♦ LATEST Rt 3101 - 28 JAI 1987 *** 

*** PARAMETER DESCRIPTIOI *** 


IHPUT : 

XBOD - VECTOR OF BODY X COORDIIATES 

YBOD - VECTOR OF BODY Y COORDIIATES 

ZETA - WORK SPACE VECTOR FOR THE SPLIIE FIT 

CX - WORK SPACE MATRIX FOR THE I SPLIIE FIT COEFFICIEITS 

CY - WORK SPACE MATRIX FOR THE Y SPLIIE FIT COEFFICIEITS 

WORK - WORK SPACE MATRIX FOR PERIODIC SPLIIE FITS 

I - I UMBER OF SURFACE ELEMEITS 

OUTPUT: 

XCP - VECTOR OF COITROL POUT X COORDIIATES 

YCP - VECTOR OF COITROL POUT Y COORDIIATES 

ALPHA - VECTOR OF IIVERSE TAIGEITS OF THE SLOPE OF EACH PAIEL 

(ORIEITATIOI AIGLE) 

D - VECTOR COITAIIIIG THE LEIGTHS OF EACH PAIE 

IHD1 - VECTOR OF IIDEI OF THE PAIEL WHICH ADJOIIS TO THE LEFT 

IHD2 - VECTOR OF IIDEI OF THE PAIEL WHICH ADJOIIS TO THE RIGHT 

PD..PPI- PARABOLIC FIT COEFFICIEITS 

C - VECTOR OF SURFACE CURVATURE COEFFICIEITS 


IMPLICIT REAL*8(A-H,0-Z) 

LOGICAL PERDT 

DIMEHSIOI XBOD(I+l) ,YBOD(I+l) , ZETA(I+1) ,CX(I,3) ,CY(I,3) , 

1 WORK(6* (1+1)) , XCP (I) , YCP(I) , ALPHA(I) ,D(I) ,IID1(I) , 

2 IID2(I) , PD(I) ,PE(I) ,PF(I) ,PG(I) ,PH(I) ,PPI(I) ,C(I) 

PI-3 . 1415926S4DO 

CHECK FOR PERIODIC GEOMETRY *♦* 

XDIFF=XBOD(I+1)-IBOD(1) 

YDIFF=YBOD(I+1)-YBOD(1) 

IFCDABS(IDIFF) .LT. 1 . E-3. AID. DABS (YDIFF) .LT.l.E-3) THEI 
PERDT*. TRUE. 

XBO D ( I+l ) =IB0D ( 1 ) 

YBODCI+1) =YBOD(l) 

ELSE 

PERDT*. FALSE. 

EID IF 
C 

DO 1=1,1 
C 

DX=XBOD(I+l)-IBOD(I) 

DY=YBOD(I+l )-YBOD(I) 

C 
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C *** COMPUTE THE P1IEL LEIGTH *♦* 

C 

D(I) =DSQRT(DX**2+DY**2) 

♦** COMPUTE THE PAIEL ORIEITATIOI AIGLE *** 

IF(DABS(DX) .LT. 1 . D-6) THE! 

IF(DY.GT.O.ODO) THE! 

ALPHA(I)=PI/2.0D0 
ELSE 

ALPHA(I)=-PI/2 . 0D0 
EID IF 
ELSE 

ALPHA(I)=DATAI(DY/DX) 

IFCDY.LT. O.ODO. AID. DX.LT. O.ODO) ALPHA ( I) =ALPHA ( I) -PI 
I F ( D Y . GE . 0 . ODO . AID . DX . LT . 0 . ODO) ALPHA ( I) = ALPHA (I) +PI 
EID IF 

EID DO 

*** SPLIIE FIT THE BODY COORDINATES AS A FUICTIOI OF THE *** 

*** PAIEL LEIGTH *** 

ZETA (1 )=0 . ODO 
DO 1*2 ,1+1 

ZETA(I)*ZETA(I-1) +DCI-1) 

EID DO 

IF(PERDT) THE* 

CALL ICSPLI(ZETA,XB0D,I+1,CX,I,V0RK,IER) 

IF(IER.IE.O) THEI 
VRITE(3,7) IER 

FORMATC ’ ERROR II GEOM, ICSCCU RETURNED WITH IER = ’,14) 

STOP 
EID IF 

CALL ICSPLK ZETA , YBOD , 1+1 , CY , I , WORK , IER) 

IF(IER.IE.O) THEI 
WRITEC3, 7) IER 
STOP 
EID IF 
ELSE 

CALL ICSCCUC ZETA , IBOD , 1+1 , CX , I , I ER) 

IF(IER.IE.O) THEI 
¥RITE<3,7) IER 
STOP 
EID IF 

CALL ICSCCUC ZETA , YBOD , 1+1 , CY , I , IER) 

IF(IER.IE.O) THE* 

WRITE(3,7) IER 
STOP 
EID IF 
EID IF 

DO 1=1,1 

*** FI ID THE COITROL POUT LOCATIOI AID SURFACE DERIVATIVES *** 
Z=0 . 5DO* ( ZETA ( I ) +ZETACI +1 ) ) 

CALL IITRPCZ , ZETA , IBOD , 1+1 , CX , I , XX , DXDZ , D2XDZ2 , IER) 

IF(IER.IE.O) THEI 
VRITE(3,20) IER, Z 
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20 FORMATS ERROR II GEOM: IITRP RETURNED VITH IER * >,I3, 

1 ’ I = \F10.5) 

STOP 
EID IF 

CALL I ITRP ( Z , ZETA , YBO D , 1+1 , CY , V , YY , DYDZ , D2YDZ2 , IER) 
IF(IER.IE.O) THE! 

WRITE(3,20) IER, Z 
STOP 
EID IF 
XCP(I)=XI 
YCP(I) =YY 

C(I) =(DXDZ*D2YDZ2-DYDZ*D2XDZ2)/(DXDZ**2+DYDZ**2)**1 .5D0 
C 

C COMPUTE PARABOLIC FIT COEFFICIEITS *** 

C 

L1=I-1 

L2=I 

L3*I+1 

IFCPERDT . AID . I . EQ . 1) L1=I 
IFCPERDT. AID.I.EQ.I) L3=l 
I F ( . IOT . PERDT. AID . (I . EQ . 1 . OR. I . EQ . I) ) THEI 
PD(L2) =0. ODO 
PE(L2) =0. ODO 
PF(L2) =0. ODO 
PG(L2) =0. ODO 
PH(L2) *0. ODO 
PPI (L2)*0. ODO 
ELSE 

A=0.5D0*(D(L1)+D(L2)) 

B=0 . 5D0* (D(L2) +D(L3) ) 

PD(L2) =-B/(A*(A+B) ) 

PE(L2) =(B**A)/( A*B) 

PFCL2)=A/CB*CA+B)) 

PG(L2) =2 . ODO/(A*(A+B) ) 

PH(L2) =~2 .ODO/ (A*B) 

PPI ( L2 ) =2 . ODO/ ( B* ( A+B) ) 

END IF 
C 

END DO 
C 

C **♦ FILL THE IIDEX ARRAYS *♦* 

C 

DO 1=1,1 

IID1 (I)=I-1 
X ID2 ( I ) *1 +1 
EID DO 
C 

IFCPERDT) THEI 
IID1 (1 )=I 
IID2 (I) =1 
ELSE 

IID2(I)=0 
EID IF 
C 

RETURI 

END 
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SUBROUTI IE GETDAT ( 1UIIT , XBOD, YBOD ,VI,I , VO , BETA) 
C 


******************* 


c * 

C SUBROUTINE GETDAT READS THE DATA FILE BODY.DAT TO OBTAII THE CQORDIHATES ♦ 
C OF THE SHROUD GEOMETRY AS WELL AS THE IORHAL VELOCITY AT EACH PAIEL. * 

C * 

C *** LATEST REVISIOI - 28 JAI 1987 *** * 

C * 

C *** PARAMETER DESCRIPTIOI * 

C * 

C IIPUT : * 

C VUIIT - LOGICAL UIIT FOR DATA IIPUT * 

C * 

C THE IIPUT IS THE DATA FILE BODY.DAT WHICH COITAIIS THE I AID Y COORDIHATES ♦ 
C ALOIG WITH THE TRAISPIRATIOI VELOCITY FOR EACH PAIEL ♦ 

C * 

OUTPUT: * 

XBOD - VECTOR COITAIIIIG THE ABSCISSA OF THE BODY POUTS ♦ 

C YBOD - VECTOR COITAIIIIG THE ORDIIATES OF THE BODY POUTS * 

C VI - VECTOR OF PAIEL TRAISPIRATIOI VELOCITIES ♦ 

Cl - I UMBER OF SURFACE ELEMEHTS (IUMBER OF BODY POUTS - 1) * 

C * 


O* *************************************+****♦*************************** ******* 


c 

IMPLICIT REAL*8(A-H,0-Z) 

DIMEISIOI XBOD(l) , YBOD(l) ,VI(1) 

C 

REWIID IUIIT 

REWIID 2 
C 

DO 1*1,500 

READ ( IUIIT, * ,EID*10) XBOD(I) , YBOD(I) , VI(I) 

EID DO 
10 1 * 1-2 
C 

READ(2 ,*) VO, BETA 
C 

RETURI 

EID 


o o 
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SUBROUTIJE IiFI«V(ICP,YCP,*LPHA,D,IIDl,IID2,PD,PE,PF,PG,PH,PPI,C, 

1 HORK,*,B,W,I,i!UT,B!UT,WIIV) 

C 

c** ************** ******** *************** ************************* ************* 

c 

C SUBROUTIIE IBFIIV COMPUTES THE IIVERSE OF THE AERODYIAMIC COEFFICIEBT 
C MATRIX. 

C 

C *** LATEST REVISIOI - 28 JAI 1987 *** 

C 

C ♦** PARAMETER DESCRIPTIOI **♦ 

C 

C IBPUT: 

C XCP - VECTOR COITAIBIBG THE COITROL POUT X COORDIBATES 

C YCP - VECTOR COBTAIBIBG THE COITROL POUT Y COORDIBATES 

C ALPHA - VECTOR COITAIBIBG THE SURFACE SLOPE AIGLES FOR EACH PABEL 

CD - VECTOR COBTAIBIBG THE PABEL LEIGTHS 
C IBD1 - VECTOR OF PABEL IIDEX WHICH ADJOIIS TO THE LEFT 

C IHD2 - VECTOR OF PABEL IIDEX WHICH ADJOIIS TO THE RIGHT 

C PD..PPI PARABOLIC FIT COEFFICIEITS 
C C - VECTOR OF SURFACE CURVATURE COEFFICIEITS 

C WORK - WORK SPACE MATRIX 

C A - WORK SPACE VECTOR TO HOLD X VELOCITY IIFLUEICE COEFFICIEITS 

C B - WORK SPACE VECTOR TO HOLD Y VELOCITY IIFLUEICE COEFFICIEBTS 

C W - WORK SPACE MATRIX TO TEMPORARILY HOLD THE IBFLUEHCE COEFFICIEBTS 
C B - BUMBER OF PABELS 

C 

C OUTPUT: 

C AMAT - MATRIX IF HORIZOBTAL IIDUCED VELOCITIES 

C BMAT - MATRIX OF VERTICAL IIDUCED VELOCITIES 

C WIHV - IIVERSE OF THE AERODYIAMIC IIFLUEICE COEFFICIEIT MATRIX 
C 

O**** ******************** **************************************************** 

c 

IMPLICIT REAL*8(A-H,0-Z) 

DIMEBSIOI XCP(I) , YCP(I) ,ALPHA(I) ,D(I) ,PD(I) ,PE(I) ,PF(I) ,PG(I) , 

1 PH(I) ,PPI(I) ,C(I) ,WIIV(I,I) ,W(I,I) ,WORK(8*I) ,IID1(I) , 

2 IID2CI) ,A(I),B(I) ,AMAT(I,I),BMAT(I,I) 

*** GEIERATE THE AERODYIAMIC IIFLUEICE COEFFICIEIT MATRIX *** 

C 

DO 1*1,1 
X=XCP(I) 

Y*YCP(I) 

CALL IIFLCE(X, Y, XCP, YCP, ALPHA, D,IID1 ,IID2 ,PD,PE,PF,PG,PH, 

1 PPI ,C,WORK,I, A,B) 

DO J*1,I 

AMAT(I , J)*A( J) 

BMAT (I , J)=B( J) 

W(I , J) =B( J)^DCOS( ALPHA Cl) )-A(J) *DSII( ALPHA (I) ) 

EBD DO 
EID DO 
C 

C *** IIVERT THE MATRIX USIIG LIIV1F *** 

C 

CALL LIIV1F(W,I,I,WIIV,0,WORK,IER) 

IFCIER.EQ .129) THEI 
WRITEC3.20) 

20 FORMATS ERROR II IIFIIV, LIIV1F FOUID A SIIGULAR MATRIX O 

STOP 
EID IF 
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RETURI 

EID 


oo a n n n o noooooooooooonoooooooo 
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APPENDIX B. COMPUTER CODE 


* 


S UBROUTIIE I IFLCE( X , Y , ICP , YCP , ALPHA , D , IID1 , 1 ID2 , 

1 PD,PE,PF,PG,PH,PPI,CC,W,I,A,B) 

C 

O* ***************************************************************** *********** 

C 

C SUBROUTIIE IIFLCE COMPUTES THE AERODYIAMIC IIFLUEICE COEFFICIEITS FOR 
C USE II THE HIGHER ORDER PAIEL METHOD. 

C 

C *** LATEST REVISIOI - 28 JAI 1987 

C 

*** PARAMETER DESCRIPTIOI *♦* 


IIPUT: 

X - X COORDIIATE AT WHICH THE IIFLUEICE COEFFICIEIT IS TO BE CALCULATED 

Y - Y COORDIIATE AT WHICH THE IIFLUEICE COEFFICIEIT IS TO BE CALCULATED 

XCP - VECTOR OF COITROL POUT X COORDIIATES 

YCP - VECTOR OF COITROL POUT Y COORDIIATES 

ALPHA - VECTOR OF SURFACE SLOPES FOR EACH PAIEL 

D - VECTOR OF PAIEL LEIGTHS 

IHD1 - VECTOR OF PAIEL IIDEI WHICH ADJOIIS TO THE LEFT 

IND2 - VECTOR OF PAIEL IIDEI WHICH ADJOIIS TO THE RIGHT 

PD..PPI PARABOLIC FIT COEFFICIEITS 
CC - VECTOR OF SURFACE CURVATURE COEFFICIEITS 

W - WORK SPACE FOR TEMPORARILY STORIIG THE IIDUCED VELOCITY COMPOIEITS 
I - HUMBER OF PAIELS 

OUTPUT: 

A - VECTOR OF IIFLUEICE COEFFICIEITS FOR THE I COMPOIEIT OF VELOCITY 

B - VECTOR OF IIFLUEICE COEFFICIEITS FOR THE Y COMPOIEIT OF VELOCITY 


*************************************************************************** 

IMPLICIT REAL*8(A-H,0-Z) 

DIMEHSIOI XCP(I) ,YCP(I) , ALPHA(I) ,D(I) ,PD(I) ,PE(I) ,PF(I) ,PG(I) , 

1 PH(I) ,PPI(I) , CC( I) ( IID1 (I) ,IID2(I) ,W(8,I) , A(I) ,B(H) 

PI =3 . 14159265DO 

DO J=1,I 

C=DC0S (ALPHA( J) ) 

S=DSII(ALPHA( J) ) 

RX=X-ICP(J) 

RY=Y-YCP(J) 

R0=DSQRT(RX**2+RY**2) 

IF(RO.EQ.O) THE! 

EPS-1 . D8 
ELSE 

EPS=D( J)/RO 
EID IF 
EPS 2 -EPS* *2 

IF(EPS .LT .7 . 5D-2) THEM 

*** USE APPROXIMATE FORMULAS IF THE FIELD POUT IS VERY FAR *** 

C *** AWAY FROM THE PAIEL COITROL POUT *** 

C 

ALP=RI/RO 

BET=RY/RO 

AUX1*ALP*C+BET*S 
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c 


c 


AUX2— ALP*S+BET*C 

W(1 , J)=2 . ODO*EPS* ALP 

W(2 , J)=2 . ODO*EPS*BET 

W(3, J) a EPS2/6. ODO* (2 . ODO*ALP*AUXl-C) 

W(4, J) =EPS2/6. ODO* (2 . ODO*BET*AUXl-S) 

W(5 , J) =EPS2/12 . ODO* (2 . ODO*ALP*AUX2+S) 

V(6, J) =EPS2/12 . ODO* ( 2 . ODO*BET*AUX2-C) 

W(7,J)=W(1,J)/24.0D0 

W(8,J)=W(2,J)/24.0D0 

ELSE 


C 

XI=RX*C+RY*S 
ETA— RX*S+RY*C 

C 

I F( EPS . LT . 3 . OD- 1 ) THE! 

C 

C *** USE AIOTHER SET OF APPROXIMATION IF THE FIELD POUT IS ♦ ** 

C *** MODERATELY FAR AWAY FROM THE PAVEL COITROL POIHT *** 

C 

ALP=II/RO 

ALP2=ALP**2 

BET=ETA/RO 

BET2 3 BET**2 

AUX1=( ALP2/3 .0D0-0.25D0)*EPS2 
AUX2=(ALP2/3 .ODO-1 . ODO/12 . ODO)*EPS2 
AUX3=2 . ODO* ALP2-1 . ODO 

AUX4-C8 . ODO* ( ALP2-1 . ODO)* ALP2+1 . ODO) *EPS2 
C 

VOX=2 . ODO*ALP* EPS* (1 . ODO+AUX1 ) 

VOE=2 . ODO*BET*EPS* (1 . ODO+AUI2) 

V1X=EPS2/6.0D0*(AUX3+1.5D-1*AUI4) 

V1E= ALP* BET* EPS 2/ 3. ODO* (1 . ODO+0 . 3D0*AUX3*EPS2) 

VCX=ALP*BET*EPS2/ 6 . ODO* (1 . ODO+O . 9D0* AUX3*EPS2) 

VCE-EPS2/12 . ODO* ( ( 2 . 0D0*BET2-1 . ODO)-7 . 5D-2*AUX4) 

V2X=ALP*EPS/12 . ODO* ( 1 . ODO+l . 8DO*AUXl) 

V2E=BET* EPS/12 . ODO* (1 . ODO+l . 8DO*AUX2) 

C 

ELSE 

C 

C *** USE THE EQUATIOIS WITHOUT APPROXIMATIOI IF THE FIELD *** 

C *** POUT IS CLOSE TO THE PAVEL COITROL POUT *** 

C 

XI2=XI**2 
ETA2-ETA**2 
DEL*D( J) 

DEL2«DEL**2 

RlSQ*(XI+0. 5DO*DEL)**2+ETA2 
R2SQ*(XI-0. 5DO*DEL)**2+ETA2 
C1*DL0G(R1SQ/R2SQ) 

RIUM*ETA*DEL 

DEV0H=XI2+ETA2-O. 25DO*DEL2 
C2=2 . ODO* DATAKRVUM/ DEVON) 

IF(DABSCRIUM) . LT.l . D-6. AID. DEVON. LT.O. ODO) THEM 
C2=2 .ODO* PI 
ELSE 

IFCRVUH.GT.O. ODO. AID. DEVON. LT.O. ODO) C2=C2+2 . ODO*PI 
IF(RIUM. LT.O. ODO. AID. DEVON. LT.O. ODO) C2=C2-2 .ODO*PI 
EVD IF 

AUX1«ETA*C2+XI*C1 
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c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 


c 


c 


AUX2=XI*C2-ETA*C1 

V0X=C1 

V0E=C2 

VI X= ( AUX1-2 . ODO* DEL) /DEL 
V1E=AUX2/DEL 

VCX=(-AUX2+0.5D0*II*ETA*(DEL**3)/(RlSQ*R2Sq))/DEL 
VCE=( AUX1-DEL* (1 . 0D0+( (II2+ETA2) **2- 

1 0.2 5D0* ( XI 2 -ET A2 ) *DEL2 ) / 

2 (R1SQ*R2SQ)))/DEL 
V2X=(XI*ETA*C2+0. 5D0*(XI2-ETA2) *C1-II*DEL) /DEL2 
V2E=(0.5D0* (XI2-ETA2)*C2-XI*ETA*C1 +ETA*DEL) /DEL2 

END IF 

♦ ♦♦ TRAISFORM TO THE GLOBAL COORDIIATE SYSTEM *** 

V(1 , J) =VOX*C-VOE*S 
W(2 , J) =VOX*S+VOE*C 
V(3 , J) -V1X*C-V1E*S 
V ( 4 , J ) =V1 X* S + VI E* C 
VC5 , J) -VCX*C-VCE*S 
V(6,J)=VCX*S+VCE*C 
W(7 , J) =V2X*C-V2E*S 
W(8 , J) -V2X*S+V2E*C 

EHD IF 

END DO 


*** COMPUTE THE INFLUENCE COEFFICIENTS *** 

DO J=1,I 

JM1=IND1 ( J) 

JP1=IND2 ( J) 

VXJ =y(l,J)+y(3,J)*PE(J)*D(J)+y<5,J)*CC(J)*D(J)+ 

1 ¥(7, J)* (PH( J) +CC( J) **2)*D(J)**2 

VYJ =¥(2 , J)+¥(4, J) *PE(J)*D( J) +¥(6, J)*CC( J)*D(J)+ 

1 ¥(8, J)* (PH( J)+CC(J)**2)*D(J)**2 

IF(JMl.IE.O) THEN 

VXJM1*¥(3,JH1)*PF(JH1)*D(JH1)+¥(7,JH1)*PPI(JH1)*D(JM1)**2 
VYJM1=¥(4, JH1) *PF( JM1)*D( JM1) +¥(8, JM1)*PPI( JM1)*D( JH1)**2 
ELSE 

VXJM1*0. ODO 
VYJM1=0.0D0 
END IF 

IF(JPl.IE.O) THEN 

VXJP1=¥(3, JP1)*PD( JP1)*D( JPl)+¥(7, JP1)*PG( JP1)*D(JP1) **2 
VYJP1*¥(4, JP1)*PD( JP1)*D( JPl)+¥(8, JP1)*PG( JPl) *D(JP1) **2 
ELSE 

VXJP1*0. ODO 
VYJP1=0. ODO 
END IF 

A(J)=VXJ+VXJM1+VXJP1 

B(J)=VYJ+VYJM1+VYJP1 


END DO 
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RETURI 

EID 
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APPENDIX B. COMPUTER CODE 


SUBROUTIIE STRITH( ALPHA , VI , WII V , I , VO , BETA ,Q) 
C 


o ***+*********♦**+**♦♦**♦*♦**♦*♦**♦*****+******♦******♦**** ******************* 


c 

C SUBROUTIIE STRITH COMPUTES THE PAIEL SOURCE STREMGTHS . 

C 

C *** LATEST REVISIOI - 28 JAI 1987 *** 

C 

C **♦ PARAMETER DESCRIPTION *** 

C 

C IHPUT : 

C ALPHA - VECTOR COITAIIIIG THE SURFACE SLOPE FOR EACH PAIEL 

C VI - VECTOR COITAIIIIG THE TRAISPIRATIOI VELOCITY FOR EACH PAIEL 

C VIHV - IIVERSE OF THE AERODYIAMIC IIFLUEICE COEFFICIEITS 

Cl - I UMBER OF PAIELS 

C VO - FREE STREAM VELOCITY 

C BETA - ASGLE OF ATTACK 

C 

C OUTPUT: 

C Q - VECTOR COITAIIIIG THE SOURCE STREIGTHS 

C 


* 


O ******* ******************** ****************************************** ******** 


c 

IMPLICIT REAL*8( A-H.O-Z) 

DIMEISIOI ALPHA(I) , VI(I) ,VIIV(I,I) ,Q(I) 

C 

DO 1=1,1 

SUM=0 . ODO 
DO J=1,I 

SUM=SUM+VIIV(I , J)* (VO*DSII(ALPHA(J)-BETA)~VI( J) ) 
EID DO 
Q (I)=SUM 
EID DO 
C 

RETURI 

EID 
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B.3.4 Mathematics library MATHLIB 

S UBROUTI IE I ITRP ( X , XVEC , YVEC , I , S PLI , IS , Y , DYDX .D2YDX2 ,IER) 

C 

C 

C THIS SUBROUTIIE USES CUBIC SPLIIE FIT PARAMETERS PRODUCED BY IMSL 
C ROUTIIE ICSCCU TO FIID IITERPOLATED VALUES OF A FUICTIOI AID ITS DERIVATIVES 
C AT AIY STATIOI X. 

C 

C PARAMETER DESCRIPTION *** 

C 

C IIPUT : 

C X - IIDEPEIDEIT COORDIIATE. X MUST BE WITHII THE RANGE OF WHICH WAS 
C SENT TO SUBROUTIIE SPLIIE. 

C XVEC - VECTOR OF LEIGTH I CONTAINING THE X COORDINATES. 

C YVEC - VECTOR OF LENGTH I CONTAINING THE VALUE OF Y AT X STATIONS 

C CORRESPONDING TO THOSE IN XVEC. 

Cl - NUMBER OF DATA POINTS USED IN THE SPLINE FIT (DIMENSION OF VECTORS 
C XVEC AND YVEC) 

C SPLI - VECTOR OF SPLINE FIT PARAMETERS AS OBTAINED FROM A CALL TO SYSTEM 
C ROUTINE ICSCCU. 

C NS - ROW DIMENSION OF SPLN EXACTLY AS SPECIFIED IN THE DIMENSION 

C STATEMENT OF THE CALLING ROUTINE 

C 

C OUTPUTS 

C Y - INTERPOLATED VALUE OF THE FUNCTION AT THE STATION X 

C DYDX - INTERPOLATED VALUE OF THE FIRST DERIVATIVE OF THE FUNCTION AT THE 

C STATION X 

C D2YDI2 INTERPOLATED VALUE OF THE SECOND DERIVATIVE AT THE STATION X 
C IER - ERROR PARAMETER. 0 FOR SUCCESSFUL INTERPOLATION 
C 1 FOR X OUT OF BOUNDS 

C 

C***** **************************************************************** ******** 

c 

IMPLICIT REaL*6(A-H,0-Z) 

DIMENSION XVEC(N) ,YVEC(N) ,SPLN(NS ,3) 

C 

C *♦* VERIFY THAT X IS WITHIN THE PROPER RANGE *** 

C EPS IS USED AS A TOLERANCE FOR ROUND-OFF ERROR *♦* 

C 

EPS=1 . OD-6 

IF( (XVEC(l)-X) . GT. EPS. OR. (X-XVEC(N) ) . GT. EPS) THEN 
IER=1 
RETURN 
END IF 
C 

C *** SEARCH THROUGH THE ABSCISSA VECTOR TO LOCATE THE INTERVAL IN *** 

C *** WHICH X LIES. *** 

C 

NF=N-1 

DO 10 J-l.NF 

IF(J.EQ.NF) GOTO 20 

IF((XVEC(J)-EPS).LE.X.AND.X.LT.XVEC(J+1)) GOTO 20 
10 CONTINUE 

C 

C **♦ COMPUTE INTERPOLATED VALUES 

C 

20 D=X-IVEC(J) 

Y*SPLN( J ,3) *D**3+SPLN( J ,2)*D**2+SPLN( J,1)*D+YVEC(J) 
DYDX=3.0D0*SPLN(J,3)*D**2+2.0D0*SPLN(J,2)*D+SPLN(J,1) 
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D2YDX2 =6 . ODO*SPLI < J , 3) * D+2 . ODO* S PLI ( J , 2 ) 
C 

IER=0 

C 

RETURI 

EID 
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SUBROUTI IE LI *TRP( I , IP, YP, SPLI , I , Y , DYDX , IER) 

C 

(>♦****** ************************************************************** ******** 

c x 

C SUBROUTIIE LIITRP WAS WRITTEN FOR THE JOIIT INSTITUTE FOR AEROIAUTICS x 

C AID ACOUSTICS AT STAMFORD UIIVERSITY BY THOMAS LUID. LATEST REVISIOI 17 x 

C JULY 1984. x 

C x 

C THIS SUBROUTIIE USES SLOPES GEIERATED BY SUBROUTIIE LISPLI TO FIID x 

C INTERPOLATED VALUES OF A FUICTIOI AID ITS DERIVATIVE AT AIY STATIOI X. 

C 

C 

C ** PARAMETER DESCRIPTION** 

C 

C IIPUTS : 

C X - INDEPENDENT COORDINATE. I MUST BE VITHII THE RANGE OF WHICH WAS 
C SENT TO SUBROUTINE LISPLI . 

C XP - VECTOR OF LENGTH I CONTAINING THE X COORDINATES OF A FUNCTION P. 

C YP - VECTOR OF LENGTH N CONTAINING THE VALUE OF P AT X STATIONS 

C CORRESPONDING TO THOSE IN XP. 

C SPLN- VECTOR OF SLOPES AS OBTAINED FROM A CALL TO SUBROUTINE LISPLI . 

C I - NUMBER OF DATA POINTS USED IN THE SPLINE FIT (DIMENSION OF VECTORS XP 

C AND YP) 

C 

C OUTPUTS : 

C Y - INTERPOLATED VALUE OF THE FUNCTION AT THE STATION I 
C DYDX - INTERPOLATED VALUE OF THE FIRST DERIVATIVE OF THE FUNCTION AT THE 
C STATION I 

C IER - ERROR PARAMETER, ON SUCCESSFUL TERMINATION IER IS SET TO ZERO, IER=1 
C INDICATES THAT X WAS OUT OF BOUNDS OF THE 

C SPLINE FIT SLOPES. 

C 

C 

C ♦♦PRECISION** - ALL PARAMETERS AID INTERNAL VARIABLES ARE DOUBLE PRECISION 

C 

0 *** **************************************************************** ********** 

c 

IMPLICIT REAL*8(A w H,0~Z) 

DIMENSION XP(I),YP(I),SPLI(I-1) 

C 

IER=0 

NF=N-1 

C 

C *** VERIFY THAT X IS WITHIN THE PROPER RANGE ♦♦♦ 

C *** EPS IS USED AS A TOLERANCE FOR ROUND-OFF ERROR ♦♦♦ 

C 

EPS-1 . OD-6 

I F( ( XP ( 1 ) -I) . GT . EPS . 0 R . ( X- XP ( N) ) . GT . EPS ) THEN 
IER-1 
RETURN 
END IF 
C 

C **♦ SEARCH THROUGH THE ABSCISSA VECTOR TO LOCATE THE INTERVAL IN ♦♦♦ 

C *** WHICH X LIES. ♦*♦ 

C 

DO 10 J-l ,IF 

IF(J.EQ.NF) GOTO 20 

IFCX.GE. (XP( J)-EPS) . AID. X. LT. XP( J+l) ) GOTO 20 
10 CONTINUE 
C 

C ♦♦♦ COMPUTE INTERPOLATED VALUES ♦♦♦ 
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c 

20 D=X-XP(J) 

Y =S PLI ( J ) * D+ YP ( J ) 
DYDX=S PLI(J) 

C 

RETURI 

END 
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SUBROUTIIE LISPLIU , Y , I , SLOPE , IER) 

C 

C THIS SUBROUTIIE WAS VRITTEI FOR THE JOIIT IISTITUTE FOR AEROIAUT- > 
C ICS AID ACOUSTICS, STAIFORD UIIVERSITY BY THOMAS LUID. LATEST REVIS- 
C 101 13 SEPTEMBER 1984. 

C 

C SUBROUTIIE LISPLI (LIIEAR SPLIIE FIT) IS USED TO GEIERATE THE 
C SLOPE OF A DISCRETE FUICTIOI THROUGH THE USE OF LIIEAR SEGMEITS . THE > 
C SLOPE AT THE MIDPOIIT OF EACH IITERVAL IS COMPUTED USIIG FIRST 
C ORDER ACCURATE BACKWARD DIFFEREICIIG . SUBROUTIIE LIITRP IS CALLED 
C TO DO THE ACTUAL I ITERPOL ATI IG . 

♦ ♦PARAMETER DESCRIPTION 


IIPUT : 

X - VECTOR OF LEIGTH I COITAIIIIG THE ABSCISSAS. THE ELEMEITS OF 
X MUST BE ORDERED SUCH THAT I(I+1)>X(I). 

Y - VECTOR OF LEIGTH I COITAIIIIG THE ORDIIATES . 

I - LEIGTH OF THE IIPUT VECTORS. I MUST BE GREATER THAI OIE. 

OUTPUT: 

SLOPE - VECTOR OF LEIGTH 1-1 COITAIIIIG THE SLOPE OF EACH IITERVAL 
IER - ERROR PARAMETER. 01 IORHAL EXIT IER IS SET TO ZERO. IER=1 
IIDICATES THAT I WAS LESS THAI 2. IER=2 IIDICATES THAT 
X(I+1)<=*X(I) . 

♦♦LIIKIIG** - 10 EXTERIAL SUBROUTIIES TO LIIK. 

♦ ♦PRECISION* - ALL PARAMETERS AID IITERIAL VARIABLES ARE DOUBLE 
PRECISION 


IMPLICIT REAL^8(A-H,0-Z) 

DIMEISIOI 1(1) ,Y(I) ,SL0PE(I-1) 

■ F=I 1 

C CHECK FOR ERROR COIDITIOIS 
IER=0 

IFCI.LT.2) THEI 
IER*1 
GOTO 200 
EID IF 

DO 10 1*1 , IF 

IF(X(I+1) .LE.X(I)) THEI 
IER=2 
GOTO 200 
EID IF 

10 COITIIUE 

C COMPUTE FIRST ORDER ACCURATE SLOPES 

DO 20 1*1, IF 

SL0PE(IWY(I+1)-Y(I))/(X(I+1)-X(I)) 
20 COITIIUE 

200 RETURI 

EID 


o n 
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SUBROUTIIE RK2(M ,FCM,X, Y,XEMD) 

O**************************************** ***************** ************ 

C 

C THIS ROUTIIE WAS WRITTEI FOR THE JOIIT IISTITUTE FOR AEROIAUTICS 
C AND ACOUSTICS, STAMFORD UNIVERSITY BY THOMAS LUND. LATEST REVISION 
C 20 JAN 1985. 

SUBROUTINE RK2 INTEGRATES A FIRST ORDER SYSTEM OF ORDINARY DIFFER- 
C ENTIAL EQUATIONS USING A SECOND ORDER ACCURATE RUMGE-KUTTA SCHEME. 

C EACH CALL TO RK2 ADVANCES THE SOLUTION FORWARD IN TIME ONE INTERVAL. 

C 

C ♦♦♦PARAMETER DESCRIPTION^ 

C 

C N - RANX OF THE FIRST ORDER SYSTEM. 

C FCN - M-DIMEMSIOMAL FUNCTION WHICH DEFINES THE SYSTEM DERIVATIVE. 

C X INDEPENDENT VARIABLE, INITIAL VALUE FOR INTEGRATION STEP. 

C Y VECTOR OF LENGTH N WHICH ON INPUT CONTAINS THE INITIAL VALUES 
C AND ON OUTPUT CONTAINS THE APPROXIMATE SOLUTION ADVANCED IN 

C TIME ONE INTERVAL. 

C XEND - VALUE OF THE INDEPENDENT VARIABLE AT THE END OF THE INTERVAL. 

C THE INTERVAL SIZE IS DEFINED AS XEND-I. 

C 

C ♦♦♦LINKING*^ 

C 

C NO LINKING TO EXTERNAL ROUTINES IS NECESSARY, BUT A DRIVING 
C ROUTINE IS NEEDED TO CALL RK2 , AND A SUBROUTINE MUST BE AVAILABLE TO 
C COMPUTE THE SYSTEM DERIVATIVE. 

C 

C ♦♦♦PRECISION*** 

C 

C ALL PARAMETERS AND VARIABLES ARE DEFINED AS DOUBLE PRECISION 
C 

C **♦ ENVIRONMENT*** 

C 

C VAX 11-780 

C 

C*+*** *♦♦♦♦♦***♦♦***♦******♦ ******************************************* 

IMPLICIT REAL*8(A-H,0-Z) 

DIMENSION Y(N) , YP(10) , YHAT(IO) , YHATP(IO) 

H=XEMD-I 

CALL FCN(M,X,Y,YP) 

DO 10 1=1, N 

YHAT(I)=Y (I)+H*YP(I) 

10 CONTINUE 

CALL FCN(N ,XEND , YHAT, YHATP) 

DO 20 1*1, N 

Y (I ) *0 . 5D0* ( Y< I ) +YHAT( I ) +H* YHATP (I ) ) 

20 CONTINUE 

X=XEMD 
RETURN 
END 
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SUBROUTIIE SIHQ(AD,*,B,I,ID,KS) 

C 

c********** *********************** ********************************************* 

c * 

C SUBROUTIIE SIMQ IS AN OLD IBM SYSTEM USED TO SOLVE A SYSTEM OF * 

C SIMULTANEOUS LIIEAR EQUATIONS . THE ALGORITHM IS GAUSSIAN ELIMINATION. * 

C * 

C **♦ PARAMETER DESCRIPTION *** ♦ 

C ♦ 

C INPUT: * 

C AD - MATRIX OF COUPLING COEFFICIENTS * 

C A - WORK SPACE MATRIX OF DIMENSION IDENTICAL TO THAT OF AD * 

C B - RIGHT HAND SIDE VECTOR * 

C N - RANK OF THE SYSTEM * 

C ID - NUMBER OF EQUATIONS IN THE SYSTEM (USUALLY EQUAL TO I) * 

KS - ERROR PARAMETER, KS=1 FOR A SINGULAR MATRIX * 


C***** ***************************************************************** ******* 

c 


IMPLICIT REAL*8(A-H,0-Z) 
DIMENSION B(ND) ,AD(ND,ID) ,A(1) 
IJ=0 


DO 130 K=1,N 

ARRAY 

DO 130 L=1,N 

ARRAY 

IJ - IJ+1 

ARRAY 

130 A(IJ) * AD(L, K) 

ARRAY 

132 TOL-O.O 

SIMQ 540 

KS=0 

SIMQ 550 

JJ=-N 

SIMQ 560 

DO 65 J=1 , N 

SIMQ 570 

JY=J+1 

SIMQ 580 

J J=J J+N+l 

SIMQ 590 

BIGA=0 

SIMQ 600 

IT*JJ-J 

SIMQ 610 

DO 30 I*J , N 

SIMQ 620 

IJ-IT+I 

SIMQ 660 

IFCDABS (BIGA)-DABS CA(l J ) ) ) 20,30,30 

SIMQ 670 

20 BIGA-ACIJ) 

SIMQ 680 

IMAI-I 

SIMQ 690 

30 CONTINUE 

SIMQ 700 

I F( DABS ( BIGA) -TOL) 35,35,40 

SIMQ 740 

35 KS =1 

SIMQ 750 

GO TO 220 

SIMQ 751 

40 I1*J+N* ( J— 2) 

SIMQ 800 

IT=IMAX-J 

SIMQ 810 

DO 50 K-J,I 

SIMQ 820 

I1*I1+N 

SIMQ 830 

I2-I1+IT 

SIMQ 840 

SAVE*A(I1) 

SIMQ 850 

A(I1)=A(I2) 

SIMQ 860 

A(I2)«SAVE 

SIMQ 870 

50 A(I1)=A(I1)/BIGA 

SIMQ 910 

SAVE*B(IMAX) 

SIMQ 920 

B(IMAX)*B( J) 

SIMQ 930 

B( J) *SAVE/BIGA 

SIMQ 940 

IF(J-N) 55,70,55 

SIMQ 980 

55 IQS s N*( J-l) 

SIMQ 990 

DO 65 IX*JY,N 

SIMQ 1000 

IXJ=IQS+II 

SIMQ1010 

IT=J-IX 

SIMQ1020 

DO 60 JX=JY,N 

SIMQ1030 
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IXJX=I*(JX-1)+IX SIMQ1040 

J JX=IXJX+IT SIMQ1050 

60 A(IXJX)=A(IXJX)-(A(IXJ)*A(JJX)) SIHQ1060 

65 B(IX)=B(IX)-(B(J)*A(IXJ)) SIMQ1070 

70 HY=I-1 SIMQ1110 

IT=M*I SIMQ1120 

DO 80 J=1,IY SIMQ1130 

IA=IT-J SIMQ1140 

IB S I~J SIMQ1150 

IC=I SIMQ1160 

DO 80 K=1,J SIMQ1170 

B(IB)=B(IB)-A(IA)*B(IC) SIMQ1180 

IA=IA-I SIMQ1190 

80 IC=IC-1 SIMQ1200 

220 IF (I.EQ.ID) RETURX ARRAY 

IJ = 1*1+1 ARRAY 

DO 110 L=1,I ARRAY 

DO 110 K=1 , I ARRAY 

IJ = IJ-1 ARRAY 

110 AD(I-L+1,I-K+1) = A(I J) ARRAY 

RETURH SIMQ1210 

EHD SIMQ1220 
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FUICTIOI SINS (F , ZL , ZU , IIIT) 


THIS ROUTIIE WAS VRITTEI FOR THE JOIIT IISTITUTE FOR AEROIAUTICS 
AID ACOUSTICS, STAIFORD UIIVERSITY BY THOMAS LUID. LATEST REVISIOI 
18 JULY 1986. 

SUBROUTIIE SIMS PERFORMS A IUHERICAL IITEGRATIOI OF A OIE DI- 
MEVSIOIAL FUICTIOI USIIG A FOURTH ORDER ACCURATE SCHEME. 

** PARAMETER DESCRIPTION* 


IIPUTS : 


ZU * 
ZL - 
HIT - 


A FUICTIOI WHICH DEFIIES THE EQUATIOI TO BE IITEGRATED. 
THE CALL MUST BE OF THE FORM CALL F(Z) WHERE Z IS 
VARIABLE OF IITEGRATIOI. F MUST BE DECLARED EXTERIAL II 
THE DRIVIKG ROUTIIE 
UPPER LIMIT OF IITEGRATIOI. 

LOWER LIMIT OF IITEGRATIOI. 

IUMBER OF IITEGRATIOI SUBIITERVALS . IIIT MUST BE AI EVER 
IUMBER. 


♦♦LIIKIIG** - 10 LIIKIIG TO LIBRARIES IEEDED, HOWEVER A DRIVIIG 
ROUTIIE AS WELL AS A FUICTIOI EVALUATIIG ROUTIIE 
IEED TO BE SUPPLIED. 


** PRECISION* - ALL PARAMETERS AID IITERIAL VARIABLES ARE DOUBLE 
PRECISION. 


^ * * ** * * * ** * $ $ * *** 4 $ ** *#* * *♦ ** * ***** **** ******* * ** * ** * ** * * * ** ** * * 


IMPLICIT REAL*8(A-H,0-Z) 

*♦* COMPUTE SUB-IITERVAL SIZE *** 

DZ= ( ZU-ZL) / DFLO AT (IIIT) 

*** IIITI ALIZE IITEGRATIOI PARAMETER ♦♦* 

SUM=0 . ODO 
Z=ZL 

*** CARRY OUT IITEGRATIOI USIIG 4TH ORDER SIMPSOIS RULE *** 
DO 10, 1*0, IIIT 

*** SET WEIGHTIIG FACTOR TO A IOMIIAL VALUE OF 2 *** 

R*2 . ODO 

*** IF I IS ODD SET THE WEIGHTIIG FACTOR TO 4 ♦ ** 

IF( (DFL0AT(I)/2 .ODO- DFLO AT (1/2)) .GT.0.2D0) R*4.0D0 

*** AT THE EIDPOIITS SET THE WEIGHTIIG FACTOR TO 1 *** 
IF(I.EQ.O.OR.I.EQ. IIIT) R=1.0D0 

*** FI ID COITRIBUTIOI TO THE IITEGRAL *** 

SUM*SUM+R*F(Z) 
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Z=Z+DZ 
10 C0ITI8UE 
c 

C *** RETURI THE APPROXIMATED IITEGRAL 

C 

SIMS=SUM*DZ/3. ODO 
C 

RETURI 

EHD 
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